home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / bin_c / compile_to_c22.c < prev    next >
C/C++ Source or Header  |  2000-03-25  |  112KB  |  5,931 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.76Beta#1)--
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                  http://SmallEiffel.loria.fr/                --
  7. */
  8. #include "compile_to_c.h"
  9.  
  10.  
  11. T6 r34a_index_value(T34* C){
  12. T6 R=0;
  13. /*[IF*/
  14. if(r34a_identifier(C)){
  15. (/*SFN*/C->_last_index_value)=r107to_simple_feature_name(&((/*RF2*/(C)->_tmp_name/*24*/)));
  16. R=1;
  17. }
  18.  else if(r34a_manifest_constant(C)){
  19. (/*SFN*/C->_last_index_value)=(/*RF2*/(C)->_last_manifest_constant/*116*/);
  20. R=1;
  21. }
  22. /*FI]*/
  23. return R;
  24. }
  25.  
  26.  
  27. void r34a_assignment_aux(T34* C,T6 a1){
  28. T0* _rhs=NULL;
  29. T0* _writable=NULL;
  30. /*[IF*/
  31. if(r34a_current(C)){
  32. {T68 se_tmp0;
  33. r66add_position((*(se_tmp0=X104start_position((/*RF2*/(C)->_last_expression/*72*/)),&se_tmp0)));
  34. }
  35. r34fatal_error(((T0*)ms34_42978));
  36. }
  37.  else if(r34a_void(C)){
  38. r66add_position((/*RF2*/((/*RF2*/(C)->_tmp_name/*24*/))._start_position/*0*/));
  39. r34fatal_error(((T0*)ms34_34845));
  40. }
  41.  else if(r34a_argument(C)){
  42. {T68 se_tmp0;
  43. r66add_position((*(se_tmp0=X104start_position((/*RF2*/(C)->_last_expression/*72*/)),&se_tmp0)));
  44. }
  45. r34fatal_error(((T0*)ms34_68714));
  46. }
  47. else{
  48. /*[IF*/
  49. if(r107is_result()){
  50. _writable=r34last_result(C);
  51. }
  52.  else if(r34a_local_variable(C)){
  53. _writable=(/*RF2*/(C)->_last_expression/*72*/);
  54. }
  55. else{
  56. _writable=r107to_simple_feature_name(&((/*RF2*/(C)->_tmp_name/*24*/)));
  57. }
  58. /*FI]*/
  59. /*[IF*/
  60. if(r34a_expression(C)){
  61. _rhs=(/*RF2*/(C)->_last_expression/*72*/);
  62. /*[IF*/
  63. if(a1){
  64. {T282*n=((T282*)malloc(sizeof(*n))/*12*/);
  65. *n=M282;
  66. r282make(n,_writable,_rhs);
  67. (/*SFN*/C->_last_instruction)=((T0*)n);
  68. }
  69. }
  70. else{
  71. {T283*n=((T283*)malloc(sizeof(*n))/*16*/);
  72. *n=M283;
  73. r283make(n,_writable,_rhs);
  74. (/*SFN*/C->_last_instruction)=((T0*)n);
  75. }
  76. }
  77. /*FI]*/
  78. }
  79. else{
  80. r34fcp(C,((T0*)ms34_145656a));
  81. }
  82. /*FI]*/
  83. }
  84. /*FI]*/
  85. }
  86.  
  87.  
  88. T0* r34to_proc_call(T34* C,T0* a1,T0* a2,T0* a3){
  89. T0* R=NULL;
  90. /*[IF*/
  91. if((a2)==((void*)(NULL))){
  92. r34fcp(C,((T0*)ms34_197274));
  93. }
  94.  else if((a3)==((void*)(NULL))){
  95. {T153*n=((T153*)malloc(sizeof(*n))/*16*/);
  96. *n=M153;
  97. r153make(n,a1,a2);
  98. R=((T0*)n);
  99. }
  100. }
  101.  else if((/*SSFRF4*//*X139count*/r139count(((T139*)a3)))==(1)){
  102. {T154*n=((T154*)malloc(sizeof(*n))/*20*/);
  103. *n=M154;
  104. r154make(n,a1,a2,a3);
  105. R=((T0*)n);
  106. }
  107. }
  108. else{
  109. {T155*n=((T155*)malloc(sizeof(*n))/*20*/);
  110. *n=M155;
  111. r155make(n,a1,a2,a3);
  112. R=((T0*)n);
  113. }
  114. }
  115. /*FI]*/
  116. return R;
  117. }
  118.  
  119.  
  120. T6 r34a_expression(T34* C){
  121. T6 R=0;
  122. T0* _list=NULL;
  123. T68 _sp={NULL,0};
  124. /*[IF*/
  125. if(r34skip2(C,((T3)'\74'),((T3)'\74'))){
  126. R=1;
  127. {T68 se_tmp0;
  128. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  129. }
  130. while (!(!(r34a_expression(C))))
  131. {
  132. /*[IF*/
  133. if((_list)==((void*)(NULL))){
  134. {T108*n=((T108*)malloc(sizeof(*n))/*20*/);
  135. *n=M108;
  136. r108with_capacity(n,4,1);
  137. _list=((T0*)n);
  138. }
  139. }
  140. /*FI]*/
  141. X108add_last(_list,(/*RF2*/(C)->_last_expression/*72*/));
  142. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\54'));
  143. }
  144. /*[IF*/
  145. if(!(r34skip2(C,((T3)'\76'),((T3)'\76')))){
  146. r34fcp(C,((T0*)ms34_57288));
  147. }
  148. /*FI]*/
  149. {T109*n=((T109*)malloc(sizeof(*n))/*24*/);
  150. *n=M109;
  151. r109make(n,_sp,_list);
  152. (/*SFN*/C->_last_expression)=((T0*)n);
  153. }
  154. }
  155. else{
  156. R=r34a_e0(C);
  157. }
  158. /*FI]*/
  159. return R;
  160. }
  161.  
  162.  
  163. T0* r34a_routine(T34* C){
  164. T0* R=NULL;
  165. T0* _ea=NULL;
  166. T0* _al=NULL;
  167. T0* _hc=NULL;
  168. T68 _sp={NULL,0};
  169. /*[IF*/
  170. if(r34a_keyword(C,((T0*)ms14_10808))){
  171. /*[IF*/
  172. if(r34a_manifest_string(C)){
  173. /*[IRF3.3set_obsolete_mark*/((((T197*)(&((/*RF2*/(C)->_tmp_feature/*161*/)))))->_obsolete_mark)=((/*RF2*/(C)->_last_manifest_string/*120*/));
  174. /*]*/
  175. }
  176. else{
  177. r34fcp(C,((T0*)ms34_70550));
  178. }
  179. /*FI]*/
  180. }
  181. /*FI]*/
  182. /*[IRF3.3set_header_comment*/((((T197*)(&((/*RF2*/(C)->_tmp_feature/*161*/)))))->_header_comment)=(r34get_comments(C));
  183. /*]*/
  184. /*[IF*/
  185. if(r34a_keyword(C,((T0*)ms14_8799))){
  186. {T68 se_tmp0;
  187. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  188. }
  189. /*[IF*/
  190. if(r34a_keyword(C,((T0*)ms14_1700))){
  191. _hc=r34get_comments(C);
  192. r197set_require_else(&((/*RF2*/(C)->_tmp_feature/*161*/)),_sp,_hc,r34a_assertion(C));
  193. }
  194. else{
  195. _hc=r34get_comments(C);
  196. r197set_require(&((/*RF2*/(C)->_tmp_feature/*161*/)),_sp,_hc,r34a_assertion(C));
  197. }
  198. /*FI]*/
  199. }
  200. /*FI]*/
  201. /*[IF*/
  202. if(r34a_keyword(C,((T0*)ms14_2615a))){
  203. r34a_local_var_list(C);
  204. }
  205. /*FI]*/
  206. R=r34a_routine_body(C);
  207. /*[IF*/
  208. if(r34a_keyword(C,((T0*)ms14_6978))){
  209. {T68 se_tmp0;
  210. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  211. }
  212. (/*SFN*/C->_in_ensure)=1;
  213. /*[IF*/
  214. if(r34a_keyword(C,((T0*)ms14_1724))){
  215. _hc=r34get_comments(C);
  216. _al=r34a_assertion(C);
  217. /*[IF*/
  218. if(((_hc)!=((void*)(NULL)))||((_al)!=((void*)(NULL)))){
  219. {T214*n=((T214*)malloc(sizeof(*n))/*25*/);
  220. *n=M214;
  221. r214make(n,_sp,_hc,_al);
  222. _ea=((T0*)n);
  223. }
  224. /*[IRF3.3set_ensure_then*/((((T214*)(((T214*)_ea))))->_is_ensure_then)=(1);
  225. /*]*/
  226. }
  227. /*FI]*/
  228. X213set_ensure_assertion(R,_ea);
  229. }
  230. else{
  231. _hc=r34get_comments(C);
  232. _al=r34a_assertion(C);
  233. /*[IF*/
  234. if(((_hc)!=((void*)(NULL)))||((_al)!=((void*)(NULL)))){
  235. {T214*n=((T214*)malloc(sizeof(*n))/*25*/);
  236. *n=M214;
  237. r214make(n,_sp,_hc,_al);
  238. _ea=((T0*)n);
  239. }
  240. }
  241. /*FI]*/
  242. X213set_ensure_assertion(R,_ea);
  243. }
  244. /*FI]*/
  245. (/*SFN*/C->_in_ensure)=0;
  246. }
  247. /*FI]*/
  248. /*[IF*/
  249. if(r34a_keyword(C,((T0*)ms14_6912))){
  250. (/*SFN*/C->_in_rescue)=1;
  251. X213set_rescue_compound(R,r34a_compound2(C,((T0*)ms14_6912),((T0*)ms14_933)));
  252. (/*SFN*/C->_in_rescue)=0;
  253. }
  254.  else if(!(r34a_keyword(C,((T0*)ms14_933)))){
  255. /*[IRF3.6wcp*/{T34* C1=C;
  256. T0* b1=((T0*)ms34_71715);
  257. {T68 se_tmp0;
  258. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  259. }
  260. }/*]*/
  261. }
  262. /*FI]*/
  263. (/*SFN*/C->_local_vars)=NULL;
  264. return R;
  265. }
  266.  
  267.  
  268. T6 r34a_creation(T34* C){
  269. T6 R=0;
  270. T0* _call=NULL;
  271. T0* _procedure_name=NULL;
  272. T0* _writable=NULL;
  273. T0* _type=NULL;
  274. T68 _sp={NULL,0};
  275. /*[IF*/
  276. if(r34skip1(C,((T3)'\41'))){
  277. R=1;
  278. {T68 se_tmp0;
  279. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  280. }
  281. /*[IF*/
  282. if(r34a_type(C)){
  283. _type=(/*RF2*/(C)->_last_type/*132*/);
  284. /*[IF*/
  285. if(X52is_anchored(_type)){
  286. {T68 se_tmp0;
  287. r34warning((*(se_tmp0=X52start_position(_type),&se_tmp0)),((T0*)ms34_173040));
  288. }
  289. }
  290. /*FI]*/
  291. /*[IF*/
  292. if(!(r34skip1(C,((T3)'\41')))){
  293. r34fcp(C,((T0*)ms34_89360a));
  294. }
  295. /*FI]*/
  296. }
  297.  else if(r34skip1(C,((T3)'\41'))){
  298. }
  299. else{
  300. r34fcp(C,((T0*)ms34_124896));
  301. }
  302. /*FI]*/
  303. _writable=r34mandatory_writable(C);
  304. /*[IF*/
  305. if(r34skip1(C,((T3)'\56'))){
  306. /*[IF*/
  307. if(r34a_identifier(C)){
  308. _procedure_name=r107to_simple_feature_name(&((/*RF2*/(C)->_tmp_name/*24*/)));
  309. /*[IF*/
  310. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\50'))){
  311. _call=r34to_proc_call(C,_writable,_procedure_name,r34a_actuals(C));
  312. }
  313. else{
  314. {T153*n=((T153*)malloc(sizeof(*n))/*16*/);
  315. *n=M153;
  316. r153make(n,_writable,_procedure_name);
  317. _call=((T0*)n);
  318. }
  319. }
  320. /*FI]*/
  321. }
  322. else{
  323. r34fcp(C,((T0*)ms34_115460));
  324. }
  325. /*FI]*/
  326. }
  327. /*FI]*/
  328. /*[IF*/
  329. if(((_type)==((void*)(NULL)))&&((_call)==((void*)(NULL)))){
  330. {T246*n=((T246*)malloc(sizeof(*n))/*20*/);
  331. *n=M246;
  332. r246make(n,_sp,_writable);
  333. (/*SFN*/C->_last_instruction)=((T0*)n);
  334. }
  335. }
  336.  else if(((_type)!=((void*)(NULL)))&&((_call)==((void*)(NULL)))){
  337. {T249*n=((T249*)malloc(sizeof(*n))/*24*/);
  338. *n=M249;
  339. r249make(n,_sp,_type,_writable);
  340. (/*SFN*/C->_last_instruction)=((T0*)n);
  341. }
  342. }
  343.  else if(((_type)==((void*)(NULL)))&&((_call)!=((void*)(NULL)))){
  344. {T251*n=((T251*)malloc(sizeof(*n))/*28*/);
  345. *n=M251;
  346. r251make(n,_sp,_writable,_call);
  347. (/*SFN*/C->_last_instruction)=((T0*)n);
  348. }
  349. }
  350. else{
  351. {T253*n=((T253*)malloc(sizeof(*n))/*32*/);
  352. *n=M253;
  353. r253make(n,_sp,_type,_writable,_call);
  354. (/*SFN*/C->_last_instruction)=((T0*)n);
  355. }
  356. }
  357. /*FI]*/
  358. }
  359. /*FI]*/
  360. return R;
  361. }
  362.  
  363.  
  364. T6 r34a_bit_constant(T34* C){
  365. T6 R=0;
  366. T2 _state=0;
  367. T2 _c=0;
  368. T2 _l=0;
  369. /*[IF*/
  370. if((((/*RF2*/(C)->_cc/*160*/))==(((T3)'0')))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'1')))){
  371. _l=(/*RF2*/(C)->_line/*152*/);
  372. _c=(/*RF2*/(C)->_column/*148*/);
  373. /*[IRF3.3clear*/((((T7*)((T7*)(oBC34tmp_string))))->_count)=(0);
  374. /*]*/
  375. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  376. while (!((_state)>(0)))
  377. {
  378. r34next_char(C);
  379. {int z1=(/*RF2*/(C)->_cc/*160*/);
  380.  
  381. if(((48<=z1)&&(z1<=49))){
  382. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  383. }
  384.  else 
  385. if((66==z1)||(98==z1)){
  386. {T68 se_tmp0;
  387. {T163*n=((T163*)malloc(sizeof(*n))/*24*/);
  388. *n=M163;
  389. r163make(n,(*(se_tmp0=r34pos(C,_l,_c),&se_tmp0)),r7twin((T7*)(oBC34tmp_string)));
  390. (/*SFN*/C->_last_bit_constant)=((T0*)n);
  391. }
  392. }
  393. r34next_char(C);
  394. r34skip_comments(C);
  395. _state=1;
  396. R=1;
  397. }
  398.  else{r34go_back_at(C,_l,_c);
  399. _state=2;
  400. }}
  401. }
  402. }
  403. /*FI]*/
  404. return R;
  405. }
  406.  
  407.  
  408. T6 r34a_boolean_constant(T34* C){
  409. T6 R=0;
  410. /*[IF*/
  411. if(r34a_keyword(C,((T0*)ms14_1792))){
  412. {T68 se_tmp0;
  413. {T158*n=((T158*)malloc(sizeof(*n))/*12*/);
  414. *n=M158;
  415. /*[IRF3.3make*/((((T158*)(n)))->_start_position)=((*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  416. /*]*/
  417. (/*SFN*/C->_last_boolean_constant)=((T0*)n);
  418. }
  419. }
  420. R=1;
  421. }
  422.  else if(r34a_keyword(C,((T0*)ms14_2615))){
  423. {T68 se_tmp0;
  424. {T159*n=((T159*)malloc(sizeof(*n))/*12*/);
  425. *n=M159;
  426. /*[IRF3.3make*/((((T159*)(n)))->_start_position)=((*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  427. /*]*/
  428. (/*SFN*/C->_last_boolean_constant)=((T0*)n);
  429. }
  430. }
  431. R=1;
  432. }
  433. /*FI]*/
  434. return R;
  435. }
  436.  
  437.  
  438. T0* r34a_external(T34* C){
  439. T0* R=NULL;
  440. T0* _l=NULL;
  441. T0* _tag=NULL;
  442. /*[IF*/
  443. if(!(r34skip1(C,((T3)'\42')))){
  444. r34fcp(C,((T0*)ms34_70210));
  445. }
  446. /*FI]*/
  447. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  448. *n=M7;
  449. r7make(n,24);
  450. _tag=((T0*)n);
  451. }
  452. while (!(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\42'))))
  453. {
  454. /*[IF*/
  455. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\45'))){
  456. r34next_char(C);
  457. }
  458. /*FI]*/
  459. r7extend(((T7*)_tag),(/*RF2*/(C)->_cc/*160*/));
  460. r34next_char(C);
  461. }
  462. /*[IF*/
  463. if(r7is_equal(ms34_18623,_tag)){
  464. {T292*n=((T292*)malloc(sizeof(*n))/*8*/);
  465. *n=M292;
  466. /*[IRF3.3make*/((((T292*)(n)))->_external_tag)=(_tag);
  467. /*]*/
  468. _l=((T0*)n);
  469. }
  470. }
  471.  else if(r7is_equal(ms34_40902,_tag)){
  472. {T292*n=((T292*)malloc(sizeof(*n))/*8*/);
  473. *n=M292;
  474. /*[IRF3.3make*/((((T292*)(n)))->_external_tag)=(_tag);
  475. /*]*/
  476. _l=((T0*)n);
  477. }
  478. }
  479.  else if(r7is_equal(ms34_25714,_tag)){
  480. {T293*n=((T293*)malloc(sizeof(*n))/*8*/);
  481. *n=M293;
  482. /*[IRF3.3make*/((((T293*)(n)))->_external_tag)=(_tag);
  483. /*]*/
  484. _l=((T0*)n);
  485. }
  486. }
  487.  else if(r7is_equal(ms34_50483,_tag)){
  488. {T295*n=((T295*)malloc(sizeof(*n))/*8*/);
  489. *n=M295;
  490. /*[IRF3.3make*/((((T295*)(n)))->_external_tag)=(_tag);
  491. /*]*/
  492. _l=((T0*)n);
  493. }
  494. }
  495.  else if(r7is_equal(ms34_37216,_tag)){
  496. {T296*n=((T296*)malloc(sizeof(*n))/*8*/);
  497. *n=M296;
  498. /*[IRF3.3make*/((((T296*)(n)))->_external_tag)=(_tag);
  499. /*]*/
  500. _l=((T0*)n);
  501. }
  502. }
  503.  else if(r7is_equal(ms34_66110,_tag)){
  504. {T297*n=((T297*)malloc(sizeof(*n))/*8*/);
  505. *n=M297;
  506. /*[IRF3.3make*/((((T297*)(n)))->_external_tag)=(_tag);
  507. /*]*/
  508. _l=((T0*)n);
  509. }
  510. }
  511.  else if(r7is_equal(ms34_657,_tag)){
  512. {T292*n=((T292*)malloc(sizeof(*n))/*8*/);
  513. *n=M292;
  514. /*[IRF3.3make*/((((T292*)(n)))->_external_tag)=(_tag);
  515. /*]*/
  516. _l=((T0*)n);
  517. }
  518. r34wcpefnc(C,((T0*)ms34_657a),((T0*)ms14_18623));
  519. }
  520.  else if(r7is_equal(ms34_663,_tag)){
  521. {T293*n=((T293*)malloc(sizeof(*n))/*8*/);
  522. *n=M293;
  523. /*[IRF3.3make*/((((T293*)(n)))->_external_tag)=(_tag);
  524. /*]*/
  525. _l=((T0*)n);
  526. }
  527. }
  528.  else if(r7is_equal(ms34_1176,_tag)){
  529. {T295*n=((T295*)malloc(sizeof(*n))/*8*/);
  530. *n=M295;
  531. /*[IRF3.3make*/((((T295*)(n)))->_external_tag)=(_tag);
  532. /*]*/
  533. _l=((T0*)n);
  534. }
  535. r34wcpefnc(C,((T0*)ms34_1176a),((T0*)ms34_50483a));
  536. }
  537.  else if(r7is_equal(ms34_280,_tag)){
  538. {T297*n=((T297*)malloc(sizeof(*n))/*8*/);
  539. *n=M297;
  540. /*[IRF3.3make*/((((T297*)(n)))->_external_tag)=(_tag);
  541. /*]*/
  542. _l=((T0*)n);
  543. }
  544. r34wcpefnc(C,((T0*)ms34_280a),((T0*)ms34_66110a));
  545. }
  546.  else if(r7is_equal(ms34_32336,_tag)){
  547. {T298*n=((T298*)malloc(sizeof(*n))/*8*/);
  548. *n=M298;
  549. /*[IRF3.3make*/((((T298*)(n)))->_external_tag)=(_tag);
  550. /*]*/
  551. _l=((T0*)n);
  552. }
  553. }
  554.  else if(r7is_equal(ms34_38641,_tag)){
  555. {T300*n=((T300*)malloc(sizeof(*n))/*8*/);
  556. *n=M300;
  557. /*[IRF3.3make*/((((T300*)(n)))->_external_tag)=(_tag);
  558. /*]*/
  559. _l=((T0*)n);
  560. }
  561. }
  562.  else if(r7has_prefix(((T7*)_tag),((T0*)ms34_459))){
  563. {T301*n=((T301*)malloc(sizeof(*n))/*16*/);
  564. *n=M301;
  565. /*[IRF3.3make*/((((T301*)(n)))->_external_tag)=(_tag);
  566. /*]*/
  567. _l=((T0*)n);
  568. }
  569. }
  570.  else if(r7has_prefix(((T7*)_tag),((T0*)ms34_67))){
  571. {T296*n=((T296*)malloc(sizeof(*n))/*8*/);
  572. *n=M296;
  573. /*[IRF3.3make*/((((T296*)(n)))->_external_tag)=(_tag);
  574. /*]*/
  575. _l=((T0*)n);
  576. }
  577. }
  578. else{
  579. r34fcp(C,((T0*)ms34_57360));
  580. }
  581. /*FI]*/
  582. /*[IF*/
  583. if(!(r34skip1(C,((T3)'\42')))){
  584. r34fcp(C,((T0*)ms34_70210));
  585. }
  586. /*FI]*/
  587. R=r197to_external_routine(&((/*RF2*/(C)->_tmp_feature/*161*/)),_l,r34a_alias(C));
  588. return R;
  589. }
  590.  
  591.  
  592. T6 r34a_type(T34* C){
  593. T6 R=0;
  594. T0* _argument_name2=NULL;
  595. T68 _sp={NULL,0};
  596. R=1;
  597. /*[IF*/
  598. if(r34a_keyword(C,((T0*)ms14_1684))){
  599. {T68 se_tmp0;
  600. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  601. }
  602. /*[IF*/
  603. if(r34a_infix(C)){
  604. {T254*n=((T254*)malloc(sizeof(*n))/*24*/);
  605. *n=M254;
  606. r254make(n,_sp,(/*RF2*/(C)->_last_infix/*96*/));
  607. (/*SFN*/C->_last_type)=((T0*)n);
  608. }
  609. }
  610.  else if(r34a_prefix(C)){
  611. {T254*n=((T254*)malloc(sizeof(*n))/*24*/);
  612. *n=M254;
  613. r254make(n,_sp,(/*RF2*/(C)->_last_prefix/*100*/));
  614. (/*SFN*/C->_last_type)=((T0*)n);
  615. }
  616. }
  617.  else if(r34a_identifier(C)){
  618. /*[IF*/
  619. if(r34a_current(C)){
  620. {T256*n=((T256*)malloc(sizeof(*n))/*16*/);
  621. *n=M256;
  622. /*[IRF3.3make*/((((T256*)(n)))->_start_position)=(_sp);
  623. /*]*/
  624. (/*SFN*/C->_last_type)=((T0*)n);
  625. }
  626. }
  627.  else if(r34a_argument(C)){
  628. _argument_name2=(/*RF2*/(C)->_last_expression/*72*/);
  629. if(NULL!=(_argument_name2)){
  630. switch(((T0*)_argument_name2)->id){
  631. case 179:
  632. break;
  633. default:
  634. _argument_name2=NULL;
  635. }
  636. }{T257*n=((T257*)malloc(sizeof(*n))/*24*/);
  637. *n=M257;
  638. r257make(n,_sp,_argument_name2);
  639. (/*SFN*/C->_last_type)=((T0*)n);
  640. }
  641. }
  642. else{
  643. {T254*n=((T254*)malloc(sizeof(*n))/*24*/);
  644. *n=M254;
  645. r254make(n,_sp,r107to_simple_feature_name(&((/*RF2*/(C)->_tmp_name/*24*/))));
  646. (/*SFN*/C->_last_type)=((T0*)n);
  647. }
  648. }
  649. /*FI]*/
  650. }
  651. else{
  652. r34fcp(C,((T0*)ms34_349402));
  653. }
  654. /*FI]*/
  655. }
  656.  else if(r34a_keyword(C,((T0*)ms14_10720))){
  657. {T68 se_tmp0;
  658. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  659. }
  660. /*[IF*/
  661. if(r34a_class_type(C)){
  662. {T274*n=((T274*)malloc(sizeof(*n))/*28*/);
  663. *n=M274;
  664. r274make(n,_sp,(/*RF2*/(C)->_last_class_type/*68*/));
  665. (/*SFN*/C->_last_type)=((T0*)n);
  666. }
  667. }
  668. else{
  669. r34fcp(C,((T0*)ms34_91880));
  670. }
  671. /*FI]*/
  672. }
  673.  else if(r34a_keyword(C,((T0*)ms15_669))){
  674. {T68 se_tmp0;
  675. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  676. }
  677. /*[IF*/
  678. if(r34a_integer(C)){
  679. {T275*n=((T275*)malloc(sizeof(*n))/*20*/);
  680. *n=M275;
  681. r275make(n,_sp,(/*RF2*/(C)->_last_integer_constant/*104*/));
  682. (/*SFN*/C->_last_type)=((T0*)n);
  683. }
  684. }
  685.  else if(r34a_identifier(C)){
  686. {T277*n=((T277*)malloc(sizeof(*n))/*24*/);
  687. *n=M277;
  688. r277make(n,_sp,r107to_simple_feature_name(&((/*RF2*/(C)->_tmp_name/*24*/))));
  689. (/*SFN*/C->_last_type)=((T0*)n);
  690. }
  691. }
  692. else{
  693. r34fcp(C,((T0*)ms34_115695));
  694. }
  695. /*FI]*/
  696. }
  697.  else if(r34a_type_formal_generic(C)){
  698. (/*SFN*/C->_last_type)=(/*RF2*/(C)->_last_type_formal_generic/*92*/);
  699. }
  700.  else if(r34a_class_type(C)){
  701. (/*SFN*/C->_last_type)=(/*RF2*/(C)->_last_class_type/*68*/);
  702. }
  703. else{
  704. R=0;
  705. }
  706. /*FI]*/
  707. return R;
  708. }
  709.  
  710.  
  711. T6 r34skip1unless2(T34* C,T3 a1,T3 a2){
  712. T6 R=0;
  713. (/*SFN*/C->_start_line)=(/*RF2*/(C)->_line/*152*/);
  714. (/*SFN*/C->_start_column)=(/*RF2*/(C)->_column/*148*/);
  715. /*[IF*/
  716. if(((/*RF2*/(C)->_cc/*160*/))==(a1)){
  717. r34next_char(C);
  718. /*[IF*/
  719. if(((/*RF2*/(C)->_cc/*160*/))==(a2)){
  720. (/*SFN*/C->_cc)=a1;
  721. (/*SFN*/C->_column)=(/*RF2*/(C)->_start_column/*140*/);
  722. }
  723. else{
  724. R=1;
  725. r34skip_comments(C);
  726. }
  727. /*FI]*/
  728. }
  729. /*FI]*/
  730. return R;
  731. }
  732.  
  733.  
  734. T6 r34a_real(T34* C){
  735. T6 R=0;
  736. T2 _c=0;
  737. T2 _l=0;
  738. T2 _state=0;
  739. /*[IF*/
  740. if((r3is_digit((/*RF2*/(C)->_cc/*160*/)))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\56')))){
  741. _l=(/*RF2*/(C)->_line/*152*/);
  742. _c=(/*RF2*/(C)->_column/*148*/);
  743. /*[IRF3.3clear*/((((T7*)((T7*)(oBC34tmp_string))))->_count)=(0);
  744. /*]*/
  745. /*[IF*/
  746. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\56'))){
  747. r7append((T7*)(oBC34tmp_string),((T0*)ms14_188));
  748. _state=5;
  749. }
  750. else{
  751. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  752. }
  753. /*FI]*/
  754. while (!((_state)>(11)))
  755. {
  756. r34next_char(C);
  757. {int z1=_state;
  758.  
  759. if((0==z1)){
  760. {int z2=(/*RF2*/(C)->_cc/*160*/);
  761.  
  762. if(((48<=z2)&&(z2<=57))){
  763. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  764. }
  765.  else 
  766. if((46==z2)){
  767. r7extend((T7*)(oBC34tmp_string),((T3)'\56'));
  768. _state=4;
  769. }
  770.  else{_state=13;
  771. }}
  772. }
  773.  else 
  774. if((1==z1)){
  775. {int z2=(/*RF2*/(C)->_cc/*160*/);
  776.  
  777. if(((48<=z2)&&(z2<=57))){
  778. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  779. _state=2;
  780. }
  781.  else{r34fcp(C,((T0*)ms34_98236));
  782. }}
  783. }
  784.  else 
  785. if((2==z1)){
  786. {int z2=(/*RF2*/(C)->_cc/*160*/);
  787.  
  788. if(((48<=z2)&&(z2<=57))){
  789. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  790. _state=3;
  791. }
  792.  else{r34fcp(C,((T0*)ms34_98236));
  793. }}
  794. }
  795.  else 
  796. if((3==z1)){
  797. {int z2=(/*RF2*/(C)->_cc/*160*/);
  798.  
  799. if(((48<=z2)&&(z2<=57))){
  800. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  801. _state=0;
  802. }
  803.  else{r34fcp(C,((T0*)ms34_98236));
  804. }}
  805. }
  806.  else 
  807. if((4==z1)){
  808. {int z2=(/*RF2*/(C)->_cc/*160*/);
  809.  
  810. if(((48<=z2)&&(z2<=57))){
  811. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  812. _state=6;
  813. }
  814.  else 
  815. if((69==z2)||(101==z2)){
  816. r7extend((T7*)(oBC34tmp_string),((T3)'E'));
  817. _state=10;
  818. }
  819.  else{_state=12;
  820. }}
  821. }
  822.  else 
  823. if((5==z1)){
  824. {int z2=(/*RF2*/(C)->_cc/*160*/);
  825.  
  826. if(((48<=z2)&&(z2<=57))){
  827. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  828. _state=6;
  829. }
  830.  else{_state=13;
  831. }}
  832. }
  833.  else 
  834. if((6==z1)){
  835. {int z2=(/*RF2*/(C)->_cc/*160*/);
  836.  
  837. if(((48<=z2)&&(z2<=57))){
  838. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  839. }
  840.  else 
  841. if((69==z2)||(101==z2)){
  842. r7extend((T7*)(oBC34tmp_string),((T3)'E'));
  843. _state=10;
  844. }
  845.  else 
  846. if((95==z2)){
  847. _state=7;
  848. }
  849.  else{_state=12;
  850. }}
  851. }
  852.  else 
  853. if((7==z1)){
  854. {int z2=(/*RF2*/(C)->_cc/*160*/);
  855.  
  856. if(((48<=z2)&&(z2<=57))){
  857. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  858. _state=8;
  859. }
  860.  else{r34fcp(C,((T0*)ms34_145656));
  861. }}
  862. }
  863.  else 
  864. if((8==z1)){
  865. {int z2=(/*RF2*/(C)->_cc/*160*/);
  866.  
  867. if(((48<=z2)&&(z2<=57))){
  868. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  869. _state=9;
  870. }
  871.  else{r34fcp(C,((T0*)ms34_145656));
  872. }}
  873. }
  874.  else 
  875. if((9==z1)){
  876. {int z2=(/*RF2*/(C)->_cc/*160*/);
  877.  
  878. if(((48<=z2)&&(z2<=57))){
  879. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  880. _state=6;
  881. }
  882.  else{r34fcp(C,((T0*)ms34_145656));
  883. }}
  884. }
  885.  else 
  886. if((10==z1)){
  887. {int z2=(/*RF2*/(C)->_cc/*160*/);
  888.  
  889. if((43==z2)){
  890. _state=11;
  891. }
  892.  else 
  893. if((45==z2)){
  894. r7extend((T7*)(oBC34tmp_string),((T3)'\55'));
  895. _state=11;
  896. }
  897.  else 
  898. if(((48<=z2)&&(z2<=57))){
  899. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  900. _state=11;
  901. }
  902.  else{r34fcp(C,((T0*)ms34_70924));
  903. _state=13;
  904. }}
  905. }
  906.  else{{int z2=(/*RF2*/(C)->_cc/*160*/);
  907.  
  908. if(((48<=z2)&&(z2<=57))){
  909. r7extend((T7*)(oBC34tmp_string),(/*RF2*/(C)->_cc/*160*/));
  910. }
  911.  else{_state=12;
  912. }}
  913. }}
  914. }
  915. /*[IF*/
  916. if((_state)==(12)){
  917. {T68 se_tmp0;
  918. {T164*n=((T164*)malloc(sizeof(*n))/*16*/);
  919. *n=M164;
  920. r164make(n,(*(se_tmp0=r34pos(C,_l,_c),&se_tmp0)),r7twin((T7*)(oBC34tmp_string)));
  921. (/*SFN*/C->_last_real_constant)=((T0*)n);
  922. }
  923. }
  924. R=1;
  925. r34skip_comments(C);
  926. }
  927. else{
  928. r34go_back_at(C,_l,_c);
  929. }
  930. /*FI]*/
  931. }
  932. /*FI]*/
  933. return R;
  934. }
  935.  
  936.  
  937. T6 r34a_index_clause(T34* C){
  938. T6 R=0;
  939. T0* _index_clause=NULL;
  940. /*[IF*/
  941. if(r34a_identifier(C)){
  942. R=1;
  943. /*[IF*/
  944. if(r34skip1(C,((T3)'\72'))){
  945. {T321*n=((T321*)malloc(sizeof(*n))/*8*/);
  946. *n=M321;
  947. /*[IRF3.3with_tag*/((((T321*)(n)))->_tag)=(r107aliased_string(&((/*RF2*/(C)->_tmp_name/*24*/))));
  948. /*]*/
  949. _index_clause=((T0*)n);
  950. }
  951. /*[IF*/
  952. if(r34a_index_value(C)){
  953. r321add_last(((T321*)_index_clause),(/*RF2*/(C)->_last_index_value/*112*/));
  954. }
  955. else{
  956. r34fcp(C,((T0*)ms34_85576));
  957. }
  958. /*FI]*/
  959. }
  960. else{
  961. {T321*n=((T321*)malloc(sizeof(*n))/*8*/);
  962. *n=M321;
  963. /*[IRF3.6without_tag*/{T321* C1=n;
  964. T0* b1=r107to_simple_feature_name(&((/*RF2*/(C)->_tmp_name/*24*/)));
  965. r321add_last(C1,b1);
  966. }/*]*/
  967. _index_clause=((T0*)n);
  968. }
  969. }
  970. /*FI]*/
  971. }
  972.  else if(r34a_manifest_constant(C)){
  973. R=1;
  974. {T321*n=((T321*)malloc(sizeof(*n))/*8*/);
  975. *n=M321;
  976. /*[IRF3.6without_tag*/{T321* C1=n;
  977. T0* b1=(/*RF2*/(C)->_last_manifest_constant/*116*/);
  978. r321add_last(C1,b1);
  979. }/*]*/
  980. _index_clause=((T0*)n);
  981. }
  982. }
  983. /*FI]*/
  984. /*[IF*/
  985. if(R){
  986. while (!(!(r34skip1(C,((T3)'\54')))))
  987. {
  988. /*[IF*/
  989. if(r34a_index_value(C)){
  990. r321add_last(((T321*)_index_clause),(/*RF2*/(C)->_last_index_value/*112*/));
  991. }
  992. else{
  993. r34fcp(C,((T0*)ms34_85576));
  994. }
  995. /*FI]*/
  996. }
  997. r51add_index_clause((T51*)((/*RF2*/(C)->_last_base_class/*40*/)),_index_clause);
  998. }
  999. /*FI]*/
  1000. return R;
  1001. }
  1002.  
  1003.  
  1004. void r34a_procedure_call(T34* C){
  1005. T0* _implicit_current=NULL;
  1006. T0* _sfn=NULL;
  1007. _sfn=r107to_simple_feature_name(&((/*RF2*/(C)->_tmp_name/*24*/)));
  1008. {T184*n=((T184*)malloc(sizeof(*n))/*16*/);
  1009. *n=M184;
  1010. /*[IRF3.3make*/((((T184*)(n)))->_start_position)=((/*RF2*/(((T138*)_sfn))->_start_position/*4*/));
  1011. /*]*/
  1012. _implicit_current=((T0*)n);
  1013. }
  1014. r34a_r10(C,1,_implicit_current,_sfn,r34a_actuals(C));
  1015. }
  1016.  
  1017.  
  1018. T6 r34a_parent(T34* C){
  1019. T6 R=0;
  1020. /*[IF*/
  1021. if(r34a_class_type(C)){
  1022. R=1;
  1023. {T58*n=((T58*)malloc(sizeof(*n))/*40*/);
  1024. *n=M58;
  1025. r58make(n,(/*RF2*/(C)->_last_class_type/*68*/));
  1026. (/*SFN*/C->_last_parent)=((T0*)n);
  1027. }
  1028. /*[IF*/
  1029. if(r34a_keyword(C,((T0*)ms14_6822))){
  1030. r34a_rename_list(C);
  1031. /*[IF*/
  1032. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\73'))){
  1033. /*[IRF3.6wcp*/{T34* C1=C;
  1034. T0* b1=((T0*)ms34_71128);
  1035. {T68 se_tmp0;
  1036. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1037. }
  1038. }/*]*/
  1039. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  1040. }
  1041. /*FI]*/
  1042. }
  1043. /*FI]*/
  1044. r34a_new_export_list(C);
  1045. /*[IF*/
  1046. if(r34a_keyword(C,((T0*)ms14_10704))){
  1047. /*[IF*/
  1048. if(r34a_feature_name_list(C)){
  1049. /*[IRF3.3set_undefine*/((((T58*)((T58*)((/*RF2*/(C)->_last_parent/*124*/)))))->_undefine_list)=((/*RF2*/(C)->_last_feature_name_list/*84*/));
  1050. /*]*/
  1051. }
  1052. /*FI]*/
  1053. }
  1054. /*FI]*/
  1055. /*[IF*/
  1056. if(r34a_keyword(C,((T0*)ms14_10608))){
  1057. /*[IF*/
  1058. if(r34a_feature_name_list(C)){
  1059. /*[IRF3.3set_redefine*/((((T58*)((T58*)((/*RF2*/(C)->_last_parent/*124*/)))))->_redefine_list)=((/*RF2*/(C)->_last_feature_name_list/*84*/));
  1060. /*]*/
  1061. }
  1062. /*FI]*/
  1063. }
  1064. /*FI]*/
  1065. /*[IF*/
  1066. if(r34a_keyword(C,((T0*)ms14_7320))){
  1067. /*[IF*/
  1068. if(r34a_feature_name_list(C)){
  1069. /*[IRF3.3set_select*/((((T58*)((T58*)((/*RF2*/(C)->_last_parent/*124*/)))))->_select_list)=((/*RF2*/(C)->_last_feature_name_list/*84*/));
  1070. /*]*/
  1071. }
  1072. /*FI]*/
  1073. }
  1074. /*FI]*/
  1075. /*[IF*/
  1076. if(((((r34a_keyword(C,((T0*)ms14_6822)))||(r34a_keyword(C,((T0*)ms14_7524))))||(r34a_keyword(C,((T0*)ms14_10704))))||(r34a_keyword(C,((T0*)ms14_10608))))||(r34a_keyword(C,((T0*)ms14_7320)))){
  1077. {T68 se_tmp0;
  1078. r66add_position((*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  1079. }
  1080. r34fatal_error(((T0*)ms34_666080));
  1081. }
  1082. /*FI]*/
  1083. (/*SFN*/C->_ok)=r34a_keyword(C,((T0*)ms14_933));
  1084. }
  1085. /*FI]*/
  1086. return R;
  1087. }
  1088.  
  1089.  
  1090. T0* r34a_compound1(T34* C){
  1091. T0* R=NULL;
  1092. T0* _remainder=NULL;
  1093. T0* _first_one=NULL;
  1094. T0* _instruction=NULL;
  1095. T0* _hc=NULL;
  1096. _hc=r34get_comments(C);
  1097. while (!(((/*RF2*/(C)->_cc/*160*/))!=(((T3)'\73'))))
  1098. {
  1099. /*[IRF3.6wcp*/{T34* C1=C;
  1100. T0* b1=((T0*)ms14_41100);
  1101. {T68 se_tmp0;
  1102. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1103. }
  1104. }/*]*/
  1105. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  1106. }
  1107. while (!((!(r34a_instruction(C)))||((/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)>(0))))
  1108. {
  1109. _instruction=(/*RF2*/(C)->_last_instruction/*108*/);
  1110. /*[IF*/
  1111. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\50'))){
  1112. /*[IRF3.6wcp*/{T34* C1=C;
  1113. T0* b1=((T0*)ms34_9260a);
  1114. {T68 se_tmp0;
  1115. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1116. }
  1117. }/*]*/
  1118. }
  1119. /*FI]*/
  1120. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  1121. while (!(((/*RF2*/(C)->_cc/*160*/))!=(((T3)'\73'))))
  1122. {
  1123. /*[IRF3.6wcp*/{T34* C1=C;
  1124. T0* b1=((T0*)ms14_41100);
  1125. {T68 se_tmp0;
  1126. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1127. }
  1128. }/*]*/
  1129. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  1130. }
  1131. /*[IF*/
  1132. if((/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)==(0)){
  1133. _instruction=X151add_comment(_instruction,r34get_comments(C));
  1134. /*[IF*/
  1135. if((_first_one)==((void*)(NULL))){
  1136. _first_one=_instruction;
  1137. }
  1138. else{
  1139. /*[IF*/
  1140. if((_remainder)==((void*)(NULL))){
  1141. {T216*n=((T216*)malloc(sizeof(*n))/*12*/);
  1142. *n=M216;
  1143. r216with_capacity(n,4);
  1144. _remainder=((T0*)n);
  1145. }
  1146. }
  1147. /*FI]*/
  1148. r216add_last(((T216*)_remainder),_instruction);
  1149. }
  1150. /*FI]*/
  1151. }
  1152. /*FI]*/
  1153. }
  1154. /*[IF*/
  1155. if(((_hc)!=((void*)(NULL)))||((_first_one)!=((void*)(NULL)))){
  1156. {T215*n=((T215*)malloc(sizeof(*n))/*16*/);
  1157. *n=M215;
  1158. r215make(n,_hc,_first_one,_remainder);
  1159. R=((T0*)n);
  1160. }
  1161. }
  1162. /*FI]*/
  1163. return R;
  1164. }
  1165.  
  1166.  
  1167. T6 r34a_instruction(T34* C){
  1168. T6 R=0;
  1169. R=1;
  1170. /*[IF*/
  1171. if(r34a_check(C)){
  1172. }
  1173.  else if(r34a_debug(C)){
  1174. }
  1175.  else if(r34a_conditional(C)){
  1176. }
  1177.  else if(r34a_retry(C)){
  1178. }
  1179.  else if(r34a_inspect(C)){
  1180. }
  1181.  else if(r34a_loop(C)){
  1182. }
  1183.  else if(r34a_create_instruction(C)){
  1184. }
  1185.  else if(r34a_assignment_or_call(C)){
  1186. }
  1187.  else if(r34a_creation(C)){
  1188. }
  1189. else{
  1190. R=0;
  1191. }
  1192. /*FI]*/
  1193. return R;
  1194. }
  1195.  
  1196.  
  1197. T6 r34a_debug(T34* C){
  1198. T6 R=0;
  1199. T0* _e_debug=NULL;
  1200. T0* _list=NULL;
  1201. T68 _sp={NULL,0};
  1202. /*[IF*/
  1203. if(r34a_keyword(C,((T0*)ms14_2595))){
  1204. {T68 se_tmp0;
  1205. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  1206. }
  1207. /*[IF*/
  1208. if(r34skip1(C,((T3)'\50'))){
  1209. while (!(!(r34a_manifest_string(C))))
  1210. {
  1211. /*[IF*/
  1212. if((_list)==((void*)(NULL))){
  1213. {T220*n=((T220*)malloc(sizeof(*n))/*20*/);
  1214. *n=M220;
  1215. r220with_capacity(n,2,1);
  1216. _list=((T0*)n);
  1217. }
  1218. }
  1219. /*FI]*/
  1220. r220add_last(((T220*)_list),(/*RF2*/(C)->_last_manifest_string/*120*/));
  1221. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\54'));
  1222. }
  1223. /*[IF*/
  1224. if((_list)==((void*)(NULL))){
  1225. /*[IRF3.6wcp*/{T34* C1=C;
  1226. T0* b1=((T0*)ms34_60543);
  1227. {T68 se_tmp0;
  1228. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1229. }
  1230. }/*]*/
  1231. }
  1232. /*FI]*/
  1233. /*[IF*/
  1234. if(!(r34skip1(C,((T3)'\51')))){
  1235. r34fcp(C,((T0*)ms34_75620));
  1236. }
  1237. /*FI]*/
  1238. }
  1239. /*FI]*/
  1240. R=1;
  1241. {T219*n=((T219*)malloc(sizeof(*n))/*24*/);
  1242. *n=M219;
  1243. r219make(n,_sp,_list,r34a_compound2(C,((T0*)ms34_2595),((T0*)ms14_933)));
  1244. _e_debug=((T0*)n);
  1245. }
  1246. (/*SFN*/C->_last_instruction)=_e_debug;
  1247. }
  1248. /*FI]*/
  1249. return R;
  1250. }
  1251.  
  1252.  
  1253. T0* r34connect_to_cecil(T34* C){
  1254. T0* R=NULL;
  1255. T0* _path=NULL;
  1256. _path=(/*RF2*/((T47*)(oBC13run_control))->_cecil_path/*13*/);
  1257. r35put_string((T35*)(oBC13echo),((T0*)ms34_24843));
  1258. r35put_string((T35*)(oBC13echo),_path);
  1259. r35put_character((T35*)(oBC13echo),((T3)'\n'));
  1260. r76load_file((T76*)(oBC13parser_buffer),_path);
  1261. /*[IF*/
  1262. if(!(/*(IRF4.7is_ready*/((/*RF2*/((T76*)(oBC13parser_buffer))->_path/*0*/))!=(NULL)/*)*/)){
  1263. r34fatal_error(((T0*)ms34_166375));
  1264. }
  1265. /*FI]*/
  1266. _path=(/*RF2*/((T76*)(oBC13parser_buffer))->_path/*0*/);
  1267. (/*SFN*/C->_current_id)=r39item((T39*)(r34id_provider()),_path);
  1268. (/*SFN*/C->_is_running)=1;
  1269. (/*SFN*/C->_formal_generic_list)=NULL;
  1270. (/*SFN*/C->_inside_function)=0;
  1271. (/*SFN*/C->_inside_once_function)=0;
  1272. (/*SFN*/C->_in_ensure)=0;
  1273. (/*SFN*/C->_last_comments)=NULL;
  1274. (/*SFN*/C->_line)=1;
  1275. (/*SFN*/C->_column)=1;
  1276. (/*SFN*/C->_current_line)=r76item((/*RF2*/(C)->_line/*152*/));
  1277. (/*SFN*/C->_last_base_class)=NULL;
  1278. /*[IF*/
  1279. if(((/*RF2*/((T7*)((/*RF2*/(C)->_current_line/*156*/)))->_count/*4*/))==(0)){
  1280. (/*SFN*/C->_cc)=((T3)'\n');
  1281. }
  1282. else{
  1283. (/*SFN*/C->_cc)=/*(IRF4.6first*/((/*RF2*/((T7*)((/*RF2*/(C)->_current_line/*156*/)))->_storage/*0*/))[0]/*)*/;
  1284. }
  1285. /*FI]*/
  1286. r34skip_comments(C);
  1287. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  1288. *n=M7;
  1289. r7make(n,32);
  1290. R=((T0*)n);
  1291. }
  1292. while (!((((/*RF2*/(C)->_cc/*160*/))==(((T3)'\n')))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\0')))))
  1293. {
  1294. r7extend(((T7*)R),(/*RF2*/(C)->_cc/*160*/));
  1295. r34next_char(C);
  1296. }
  1297. r34skip_comments(C);
  1298. /*[IF*/
  1299. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\0'))){
  1300. r34fatal_error(((T0*)ms34_136269));
  1301. }
  1302. /*FI]*/
  1303. return R;
  1304. }
  1305.  
  1306.  
  1307. void r34to_frozen_feature_name(T34* C){
  1308. {T316*n=((T316*)malloc(sizeof(*n))/*8*/);
  1309. *n=M316;
  1310. /*[IRF3.3make*/((((T316*)(n)))->_feature_name)=((/*RF2*/(C)->_last_feature_name/*80*/));
  1311. /*]*/
  1312. (/*SFN*/C->_last_feature_name)=((T0*)n);
  1313. }
  1314. }
  1315.  
  1316.  
  1317. T6 r34a_manifest_constant(T34* C){
  1318. T6 R=0;
  1319. /*[IF*/
  1320. if(r34a_boolean_constant(C)){
  1321. (/*SFN*/C->_last_manifest_constant)=(/*RF2*/(C)->_last_boolean_constant/*56*/);
  1322. R=1;
  1323. }
  1324.  else if(r34a_character_constant(C)){
  1325. (/*SFN*/C->_last_manifest_constant)=(/*RF2*/(C)->_last_character_constant/*60*/);
  1326. R=1;
  1327. }
  1328.  else if(r34a_manifest_string(C)){
  1329. (/*SFN*/C->_last_manifest_constant)=(/*RF2*/(C)->_last_manifest_string/*120*/);
  1330. R=1;
  1331. }
  1332.  else if(r34a_bit_constant(C)){
  1333. (/*SFN*/C->_last_manifest_constant)=(/*RF2*/(C)->_last_bit_constant/*52*/);
  1334. R=1;
  1335. }
  1336.  else if(r34a_real_constant(C)){
  1337. (/*SFN*/C->_last_manifest_constant)=(/*RF2*/(C)->_last_real_constant/*128*/);
  1338. R=1;
  1339. }
  1340.  else if(r34a_integer_constant(C)){
  1341. (/*SFN*/C->_last_manifest_constant)=(/*RF2*/(C)->_last_integer_constant/*104*/);
  1342. R=1;
  1343. }
  1344. /*FI]*/
  1345. return R;
  1346. }
  1347.  
  1348.  
  1349. T6 r34a_base_type(T34* C){
  1350. T6 R=0;
  1351. T68 _sp={NULL,0};
  1352. R=1;
  1353. /*[IF*/
  1354. if(r34a_keyword(C,((T0*)ms15_696))){
  1355. {T68 se_tmp0;
  1356. {T259*n=((T259*)malloc(sizeof(*n))/*8*/);
  1357. *n=M259;
  1358. r259make(n,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  1359. (/*SFN*/C->_last_base_type)=((T0*)n);
  1360. }
  1361. }
  1362. }
  1363.  else if(r34a_keyword(C,((T0*)ms15_1915))){
  1364. {T68 se_tmp0;
  1365. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  1366. }
  1367. /*[IF*/
  1368. if(((r34skip1(C,((T3)'\133')))&&(r34a_type(C)))&&(r34skip1(C,((T3)'\135')))){
  1369. {T260*n=((T260*)malloc(sizeof(*n))/*20*/);
  1370. *n=M260;
  1371. r260make(n,_sp,(/*RF2*/(C)->_last_type/*132*/));
  1372. (/*SFN*/C->_last_base_type)=((T0*)n);
  1373. }
  1374. }
  1375. else{
  1376. r34fcp(C,((T0*)ms34_63690));
  1377. }
  1378. /*FI]*/
  1379. }
  1380.  else if(r34a_keyword(C,((T0*)ms15_17448))){
  1381. {T68 se_tmp0;
  1382. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  1383. }
  1384. /*[IF*/
  1385. if(((r34skip1(C,((T3)'\133')))&&(r34a_type(C)))&&(r34skip1(C,((T3)'\135')))){
  1386. {T262*n=((T262*)malloc(sizeof(*n))/*20*/);
  1387. *n=M262;
  1388. r262make(n,_sp,(/*RF2*/(C)->_last_type/*132*/));
  1389. (/*SFN*/C->_last_base_type)=((T0*)n);
  1390. }
  1391. }
  1392. else{
  1393. r34fcp(C,((T0*)ms34_90080));
  1394. }
  1395. /*FI]*/
  1396. }
  1397.  else if(r34a_keyword(C,((T0*)ms15_6405))){
  1398. {T68 se_tmp0;
  1399. {T263*n=((T263*)malloc(sizeof(*n))/*8*/);
  1400. *n=M263;
  1401. r263make(n,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  1402. (/*SFN*/C->_last_base_type)=((T0*)n);
  1403. }
  1404. }
  1405. }
  1406.  else if(r34a_keyword(C,((T0*)ms15_9801))){
  1407. {T68 se_tmp0;
  1408. {T265*n=((T265*)malloc(sizeof(*n))/*8*/);
  1409. *n=M265;
  1410. r265make(n,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  1411. (/*SFN*/C->_last_base_type)=((T0*)n);
  1412. }
  1413. }
  1414. }
  1415.  else if(r34a_keyword(C,((T0*)ms15_4728))){
  1416. {T68 se_tmp0;
  1417. {T266*n=((T266*)malloc(sizeof(*n))/*8*/);
  1418. *n=M266;
  1419. r266make(n,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  1420. (/*SFN*/C->_last_base_type)=((T0*)n);
  1421. }
  1422. }
  1423. }
  1424.  else if(r34a_keyword(C,((T0*)ms15_6643))){
  1425. {T68 se_tmp0;
  1426. {T267*n=((T267*)malloc(sizeof(*n))/*8*/);
  1427. *n=M267;
  1428. r267make(n,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  1429. (/*SFN*/C->_last_base_type)=((T0*)n);
  1430. }
  1431. }
  1432. }
  1433.  else if(r34a_keyword(C,((T0*)ms15_1216))){
  1434. {T68 se_tmp0;
  1435. {T268*n=((T268*)malloc(sizeof(*n))/*8*/);
  1436. *n=M268;
  1437. r268make(n,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  1438. (/*SFN*/C->_last_base_type)=((T0*)n);
  1439. }
  1440. }
  1441. }
  1442.  else if(r34a_keyword(C,((T0*)ms15_6776))){
  1443. {T68 se_tmp0;
  1444. {T269*n=((T269*)malloc(sizeof(*n))/*8*/);
  1445. *n=M269;
  1446. r269make(n,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  1447. (/*SFN*/C->_last_base_type)=((T0*)n);
  1448. }
  1449. }
  1450. }
  1451.  else if(r34a_keyword(C,((T0*)ms15_1168))){
  1452. {T68 se_tmp0;
  1453. {T270*n=((T270*)malloc(sizeof(*n))/*8*/);
  1454. *n=M270;
  1455. r270make(n,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  1456. (/*SFN*/C->_last_base_type)=((T0*)n);
  1457. }
  1458. }
  1459. }
  1460.  else if(r34a_keyword(C,((T0*)ms15_4956))){
  1461. {T68 se_tmp0;
  1462. {T271*n=((T271*)malloc(sizeof(*n))/*8*/);
  1463. *n=M271;
  1464. r271make(n,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  1465. (/*SFN*/C->_last_base_type)=((T0*)n);
  1466. }
  1467. }
  1468. }
  1469. else{
  1470. R=0;
  1471. }
  1472. /*FI]*/
  1473. return R;
  1474. }
  1475.  
  1476.  
  1477. T6 r34a_result(T34* C){
  1478. T6 R=0;
  1479. /*[IF*/
  1480. if(r107is_result()){
  1481. (/*SFN*/C->_last_expression)=r34last_result(C);
  1482. R=1;
  1483. }
  1484. /*FI]*/
  1485. return R;
  1486. }
  1487.  
  1488.  
  1489. T6 r34a_base_class_name(T34* C){
  1490. T6 R=0;
  1491. T6 _do_warning=0;
  1492. T2 _c=0;
  1493. T2 _state=0;
  1494. /*[IF*/
  1495. if(r3is_letter((/*RF2*/(C)->_cc/*160*/))){
  1496. /*[IF*/
  1497. if((((unsigned)((/*RF2*/(C)->_cc/*160*/)))>=((unsigned)(((T3)'a'))))){
  1498. _do_warning=1;
  1499. (/*SFN*/C->_cc)=r3to_upper((/*RF2*/(C)->_cc/*160*/));
  1500. }
  1501. /*FI]*/
  1502. _c=(/*RF2*/(C)->_column/*148*/);
  1503. {T68 se_tmp0;
  1504. r107reset(&((/*RF2*/(C)->_tmp_name/*24*/)),(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_line/*152*/),_c),&se_tmp0)));
  1505. }
  1506. /*[IRF3.6extend*/{T3 b1=(/*RF2*/(C)->_cc/*160*/);
  1507. r7extend((T7*)(((T0*)ms107_84672)),b1);
  1508. }/*]*/
  1509. while (!((_state)>(0)))
  1510. {
  1511. r34next_char(C);
  1512. {int z1=(/*RF2*/(C)->_cc/*160*/);
  1513.  
  1514. if(((48<=z1)&&(z1<=57))||((65<=z1)&&(z1<=90))||(95==z1)){
  1515. /*[IRF3.6extend*/{T3 b1=(/*RF2*/(C)->_cc/*160*/);
  1516. r7extend((T7*)(((T0*)ms107_84672)),b1);
  1517. }/*]*/
  1518. }
  1519.  else 
  1520. if(((97<=z1)&&(z1<=122))){
  1521. _do_warning=1;
  1522. /*[IRF3.6extend*/{T3 b1=r3to_upper((/*RF2*/(C)->_cc/*160*/));
  1523. r7extend((T7*)(((T0*)ms107_84672)),b1);
  1524. }/*]*/
  1525. }
  1526.  else{_state=1;
  1527. }}
  1528. }
  1529. /*[IF*/
  1530. if(r107isa_keyword(&((/*RF2*/(C)->_tmp_name/*24*/)))){
  1531. (/*SFN*/C->_cc)=/*(IRF4.6first*/((/*RF2*/((T7*)(((T0*)ms107_84672)))->_storage/*0*/))[0]/*)*/;
  1532. (/*SFN*/C->_column)=_c;
  1533. }
  1534. else{
  1535. R=1;
  1536. r34skip_comments(C);
  1537. /*[IF*/
  1538. if(_do_warning){
  1539. r34warning((/*RF2*/((/*RF2*/(C)->_tmp_name/*24*/))._start_position/*0*/),((T0*)ms34_115740));
  1540. }
  1541. /*FI]*/
  1542. (/*SFN*/C->_last_class_name)=r107to_class_name(&((/*RF2*/(C)->_tmp_name/*24*/)));
  1543. }
  1544. /*FI]*/
  1545. }
  1546. /*FI]*/
  1547. return R;
  1548. }
  1549.  
  1550.  
  1551. void r34a_formal_arg_list(T34* C){
  1552. T2 _state=0;
  1553. T0* _list=NULL;
  1554. T0* _declaration=NULL;
  1555. T0* _name_list=NULL;
  1556. T0* _name=NULL;
  1557. (/*SFN*/C->_arguments)=NULL;
  1558. /*[IF*/
  1559. if(r34skip1(C,((T3)'\50'))){
  1560. while (!((_state)>(4)))
  1561. {
  1562. {int z1=_state;
  1563.  
  1564. if((0==z1)){
  1565. /*[IF*/
  1566. if(r34a_identifier(C)){
  1567. _name=r107to_argument_name1(&((/*RF2*/(C)->_tmp_name/*24*/)));
  1568. _state=1;
  1569. }
  1570.  else if(r34skip1(C,((T3)'\51'))){
  1571. _state=5;
  1572. }
  1573. else{
  1574. _state=6;
  1575. }
  1576. /*FI]*/
  1577. }
  1578.  else 
  1579. if((1==z1)){
  1580. /*[IF*/
  1581. if(r34skip1(C,((T3)'\72'))){
  1582. /*[IF*/
  1583. if((_name_list)!=((void*)(NULL))){
  1584. r182add_last(((T182*)_name_list),_name);
  1585. _name=NULL;
  1586. }
  1587. /*FI]*/
  1588. _state=3;
  1589. }
  1590. else{
  1591. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\54'));
  1592. /*[IF*/
  1593. if((_name_list)==((void*)(NULL))){
  1594. {T182*n=((T182*)malloc(sizeof(*n))/*20*/);
  1595. *n=M182;
  1596. r182with_capacity(n,2,1);
  1597. _name_list=((T0*)n);
  1598. }
  1599. }
  1600. /*FI]*/
  1601. r182add_last(((T182*)_name_list),_name);
  1602. _name=NULL;
  1603. _state=2;
  1604. }
  1605. /*FI]*/
  1606. }
  1607.  else 
  1608. if((2==z1)){
  1609. /*[IF*/
  1610. if(r34a_identifier(C)){
  1611. _name=r107to_argument_name1(&((/*RF2*/(C)->_tmp_name/*24*/)));
  1612. _state=1;
  1613. }
  1614.  else if((((/*RF2*/(C)->_cc/*160*/))==(((T3)'\54')))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\73')))){
  1615. /*[IRF3.6wcp*/{T34* C1=C;
  1616. T0* b1=((T0*)ms34_38352);
  1617. {T68 se_tmp0;
  1618. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1619. }
  1620. }/*]*/
  1621. (/*SFN*/C->_ok)=(r34skip1(C,((T3)'\54')))||(r34skip1(C,((T3)'\73')));
  1622. }
  1623. else{
  1624. _state=6;
  1625. }
  1626. /*FI]*/
  1627. }
  1628.  else 
  1629. if((3==z1)){
  1630. /*[IF*/
  1631. if(r34a_type(C)){
  1632. /*[IF*/
  1633. if((_name_list)!=((void*)(NULL))){
  1634. {T311*n=((T311*)malloc(sizeof(*n))/*8*/);
  1635. *n=M311;
  1636. r311make(n,_name_list,(/*RF2*/(C)->_last_type/*132*/));
  1637. _declaration=((T0*)n);
  1638. }
  1639. _name_list=NULL;
  1640. }
  1641. else{
  1642. {T314*n=((T314*)malloc(sizeof(*n))/*8*/);
  1643. *n=M314;
  1644. r314make(n,_name,(/*RF2*/(C)->_last_type/*132*/));
  1645. _declaration=((T0*)n);
  1646. }
  1647. _name=NULL;
  1648. }
  1649. /*FI]*/
  1650. /*[IF*/
  1651. if((_list)==((void*)(NULL))){
  1652. {T309*n=((T309*)malloc(sizeof(*n))/*16*/);
  1653. *n=M309;
  1654. r309with_capacity(n,2,1);
  1655. _list=((T0*)n);
  1656. }
  1657. }
  1658. /*FI]*/
  1659. r309add_last(((T309*)_list),_declaration);
  1660. _declaration=NULL;
  1661. _state=4;
  1662. }
  1663. else{
  1664. _state=6;
  1665. }
  1666. /*FI]*/
  1667. }
  1668.  else{/*[IF*/
  1669. if(r34skip1(C,((T3)'\51'))){
  1670. _state=5;
  1671. }
  1672.  else if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\54'))){
  1673. /*[IRF3.6wcp*/{T34* C1=C;
  1674. T0* b1=((T0*)ms34_28980aa);
  1675. {T68 se_tmp0;
  1676. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1677. }
  1678. }/*]*/
  1679. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\54'));
  1680. _state=0;
  1681. }
  1682. else{
  1683. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  1684. _state=0;
  1685. }
  1686. /*FI]*/
  1687. }}
  1688. }
  1689. /*[IF*/
  1690. if((_state)==(6)){
  1691. r34fcp(C,((T0*)ms34_41418));
  1692. }
  1693.  else if((_list)==((void*)(NULL))){
  1694. /*[IRF3.6wcp*/{T34* C1=C;
  1695. T0* b1=((T0*)ms34_82473a);
  1696. {T68 se_tmp0;
  1697. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1698. }
  1699. }/*]*/
  1700. }
  1701. else{
  1702. {T178*n=((T178*)malloc(sizeof(*n))/*12*/);
  1703. *n=M178;
  1704. r178make(n,_list);
  1705. (/*SFN*/C->_arguments)=((T0*)n);
  1706. }
  1707. /*[IRF3.3set_arguments*/((((T197*)(&((/*RF2*/(C)->_tmp_feature/*161*/)))))->_arguments)=((/*RF2*/(C)->_arguments/*15*/));
  1708. /*]*/
  1709. }
  1710. /*FI]*/
  1711. }
  1712. /*FI]*/
  1713. }
  1714.  
  1715.  
  1716. T6 r34a_identifier(T34* C){
  1717. T6 R=0;
  1718. /*[IF*/
  1719. if((/*RF2*/(C)->_case_insensitive/*0*/)){
  1720. R=r34a_identifier1(C);
  1721. }
  1722. else{
  1723. R=r34a_identifier2(C);
  1724. }
  1725. /*FI]*/
  1726. return R;
  1727. }
  1728.  
  1729.  
  1730. void r34wcpefnc(T34* C,T0* a1,T0* a2){
  1731. /*[IRF3.6append*/{T0* b1=((T0*)ms34_43830);
  1732. r7append((T7*)(oBC66explanation),b1);
  1733. }/*]*/
  1734. /*[IRF3.6append*/{T0* b1=a1;
  1735. r7append((T7*)(oBC66explanation),b1);
  1736. }/*]*/
  1737. /*[IRF3.6append*/{T0* b1=((T0*)ms34_6580);
  1738. r7append((T7*)(oBC66explanation),b1);
  1739. }/*]*/
  1740. /*[IRF3.6append*/{T0* b1=a2;
  1741. r7append((T7*)(oBC66explanation),b1);
  1742. }/*]*/
  1743. /*[IRF3.6wcp*/{T34* C1=C;
  1744. T0* b1=((T0*)ms34_94248);
  1745. {T68 se_tmp0;
  1746. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1747. }
  1748. }/*]*/
  1749. }
  1750.  
  1751.  
  1752. T6 r34skip1(T34* C,T3 a1){
  1753. T6 R=0;
  1754. /*[IF*/
  1755. if((a1)==((/*RF2*/(C)->_cc/*160*/))){
  1756. (/*SFN*/C->_start_line)=(/*RF2*/(C)->_line/*152*/);
  1757. (/*SFN*/C->_start_column)=(/*RF2*/(C)->_column/*148*/);
  1758. R=1;
  1759. r34next_char(C);
  1760. r34skip_comments(C);
  1761. }
  1762. /*FI]*/
  1763. return R;
  1764. }
  1765.  
  1766.  
  1767. T6 r34skip2(T34* C,T3 a1,T3 a2){
  1768. T6 R=0;
  1769. /*[IF*/
  1770. if((a1)==((/*RF2*/(C)->_cc/*160*/))){
  1771. (/*SFN*/C->_start_line)=(/*RF2*/(C)->_line/*152*/);
  1772. (/*SFN*/C->_start_column)=(/*RF2*/(C)->_column/*148*/);
  1773. r34next_char(C);
  1774. /*[IF*/
  1775. if((a2)==((/*RF2*/(C)->_cc/*160*/))){
  1776. R=1;
  1777. r34next_char(C);
  1778. r34skip_comments(C);
  1779. }
  1780. else{
  1781. (/*SFN*/C->_cc)=a1;
  1782. (/*SFN*/C->_column)=(/*RF2*/(C)->_start_column/*140*/);
  1783. }
  1784. /*FI]*/
  1785. }
  1786. /*FI]*/
  1787. return R;
  1788. }
  1789.  
  1790.  
  1791. T6 r34a_integer_constant(T34* C){
  1792. T6 R=0;
  1793. /*[IF*/
  1794. if(r34skip1(C,((T3)'\53'))){
  1795. /*[IF*/
  1796. if(r34a_integer(C)){
  1797. R=1;
  1798. }
  1799. else{
  1800. r34fcp(C,((T0*)ms14_45441));
  1801. }
  1802. /*FI]*/
  1803. }
  1804.  else if(r34skip1(C,((T3)'\55'))){
  1805. /*[IF*/
  1806. if(r34a_integer(C)){
  1807. r165unary_minus((T165*)((/*RF2*/(C)->_last_integer_constant/*104*/)));
  1808. R=1;
  1809. }
  1810. else{
  1811. r34fcp(C,((T0*)ms14_45441));
  1812. }
  1813. /*FI]*/
  1814. }
  1815. else{
  1816. R=r34a_integer(C);
  1817. }
  1818. /*FI]*/
  1819. return R;
  1820. }
  1821.  
  1822.  
  1823. T0* r34a_compound2(T34* C,T0* a1,T0* a2){
  1824. T0* R=NULL;
  1825. T0* _remainder=NULL;
  1826. T0* _first_one=NULL;
  1827. T0* _instruction=NULL;
  1828. T0* _hc=NULL;
  1829. _hc=r34get_comments(C);
  1830. while (!(((/*RF2*/(C)->_cc/*160*/))!=(((T3)'\73'))))
  1831. {
  1832. /*[IRF3.6wcp*/{T34* C1=C;
  1833. T0* b1=((T0*)ms14_41100);
  1834. {T68 se_tmp0;
  1835. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1836. }
  1837. }/*]*/
  1838. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  1839. }
  1840. while (!((!(r34a_instruction(C)))||((/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)>(0))))
  1841. {
  1842. _instruction=(/*RF2*/(C)->_last_instruction/*108*/);
  1843. /*[IF*/
  1844. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\50'))){
  1845. /*[IRF3.6wcp*/{T34* C1=C;
  1846. T0* b1=((T0*)ms34_9260a);
  1847. {T68 se_tmp0;
  1848. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1849. }
  1850. }/*]*/
  1851. }
  1852. /*FI]*/
  1853. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  1854. while (!(((/*RF2*/(C)->_cc/*160*/))!=(((T3)'\73'))))
  1855. {
  1856. /*[IRF3.6wcp*/{T34* C1=C;
  1857. T0* b1=((T0*)ms14_41100);
  1858. {T68 se_tmp0;
  1859. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1860. }
  1861. }/*]*/
  1862. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  1863. }
  1864. /*[IF*/
  1865. if((/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)==(0)){
  1866. _instruction=X151add_comment(_instruction,r34get_comments(C));
  1867. /*[IF*/
  1868. if((_first_one)==((void*)(NULL))){
  1869. _first_one=_instruction;
  1870. }
  1871. else{
  1872. /*[IF*/
  1873. if((_remainder)==((void*)(NULL))){
  1874. {T216*n=((T216*)malloc(sizeof(*n))/*12*/);
  1875. *n=M216;
  1876. r216with_capacity(n,4);
  1877. _remainder=((T0*)n);
  1878. }
  1879. }
  1880. /*FI]*/
  1881. r216add_last(((T216*)_remainder),_instruction);
  1882. }
  1883. /*FI]*/
  1884. }
  1885. /*FI]*/
  1886. }
  1887. /*[IF*/
  1888. if(!(r34a_keyword(C,a2))){
  1889. /*[IRF3.6append*/{T0* b1=((T0*)ms34_12285);
  1890. r7append((T7*)(oBC66explanation),b1);
  1891. }/*]*/
  1892. /*[IRF3.6append*/{T0* b1=a1;
  1893. r7append((T7*)(oBC66explanation),b1);
  1894. }/*]*/
  1895. /*[IRF3.6append*/{T0* b1=((T0*)ms34_32940);
  1896. r7append((T7*)(oBC66explanation),b1);
  1897. }/*]*/
  1898. /*[IRF3.6append*/{T0* b1=a2;
  1899. r7append((T7*)(oBC66explanation),b1);
  1900. }/*]*/
  1901. r34fcp(C,((T0*)ms34_9955a));
  1902. }
  1903. /*FI]*/
  1904. /*[IF*/
  1905. if(((_hc)!=((void*)(NULL)))||((_first_one)!=((void*)(NULL)))){
  1906. {T215*n=((T215*)malloc(sizeof(*n))/*16*/);
  1907. *n=M215;
  1908. r215make(n,_hc,_first_one,_remainder);
  1909. R=((T0*)n);
  1910. }
  1911. }
  1912. /*FI]*/
  1913. return R;
  1914. }
  1915.  
  1916.  
  1917. void r34a_new_export_list(T34* C){
  1918. T2 _state=0;
  1919. T0* _new_export_item=NULL;
  1920. T0* _items=NULL;
  1921. T0* _clients=NULL;
  1922. T68 _sp={NULL,0};
  1923. T0* _export_list=NULL;
  1924. /*[IF*/
  1925. if(r34a_keyword(C,((T0*)ms14_7524))){
  1926. {T68 se_tmp0;
  1927. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  1928. }
  1929. while (!((_state)>(3)))
  1930. {
  1931. {int z1=_state;
  1932.  
  1933. if((0==z1)){
  1934. /*[IF*/
  1935. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\173'))){
  1936. _clients=r34a_clients(C);
  1937. _state=1;
  1938. }
  1939.  else if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\73'))){
  1940. /*[IRF3.6wcp*/{T34* C1=C;
  1941. T0* b1=((T0*)ms14_41100);
  1942. {T68 se_tmp0;
  1943. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  1944. }
  1945. }/*]*/
  1946. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  1947. }
  1948. else{
  1949. /*[IF*/
  1950. if((_items)!=((void*)(NULL))){
  1951. {T319*n=((T319*)malloc(sizeof(*n))/*12*/);
  1952. *n=M319;
  1953. r319make(n,_sp,_items);
  1954. _export_list=((T0*)n);
  1955. }
  1956. /*[IRF3.3set_export*/((((T58*)((T58*)((/*RF2*/(C)->_last_parent/*124*/)))))->_export_list)=(_export_list);
  1957. /*]*/
  1958. }
  1959. /*FI]*/
  1960. _state=4;
  1961. }
  1962. /*FI]*/
  1963. }
  1964.  else 
  1965. if((1==z1)){
  1966. /*[IF*/
  1967. if(r34a_keyword(C,((T0*)ms14_939a))){
  1968. {T317*n=((T317*)malloc(sizeof(*n))/*8*/);
  1969. *n=M317;
  1970. r317make_all(n,_clients);
  1971. _new_export_item=((T0*)n);
  1972. }
  1973. /*[IF*/
  1974. if((_items)==((void*)(NULL))){
  1975. {T318*n=((T318*)malloc(sizeof(*n))/*16*/);
  1976. *n=M318;
  1977. r318with_capacity(n,2,1);
  1978. _items=((T0*)n);
  1979. }
  1980. }
  1981. /*FI]*/
  1982. r318add_last(((T318*)_items),_new_export_item);
  1983. _state=2;
  1984. }
  1985. else{
  1986. /*[IF*/
  1987. if(r34a_feature_name_list(C)){
  1988. {T317*n=((T317*)malloc(sizeof(*n))/*8*/);
  1989. *n=M317;
  1990. r317make(n,_clients,(/*RF2*/(C)->_last_feature_name_list/*84*/));
  1991. _new_export_item=((T0*)n);
  1992. }
  1993. /*[IF*/
  1994. if((_items)==((void*)(NULL))){
  1995. {T318*n=((T318*)malloc(sizeof(*n))/*16*/);
  1996. *n=M318;
  1997. r318with_capacity(n,2,1);
  1998. _items=((T0*)n);
  1999. }
  2000. }
  2001. /*FI]*/
  2002. r318add_last(((T318*)_items),_new_export_item);
  2003. _state=2;
  2004. }
  2005. else{
  2006. _state=3;
  2007. }
  2008. /*FI]*/
  2009. }
  2010. /*FI]*/
  2011. }
  2012.  else 
  2013. if((2==z1)){
  2014. /*[IF*/
  2015. if(r34skip1(C,((T3)'\73'))){
  2016. _state=0;
  2017. }
  2018.  else if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\173'))){
  2019. /*[IRF3.6wcp*/{T34* C1=C;
  2020. T0* b1=((T0*)ms34_9260a);
  2021. {T68 se_tmp0;
  2022. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  2023. }
  2024. }/*]*/
  2025. _state=0;
  2026. }
  2027. else{
  2028. /*[IF*/
  2029. if((_items)!=((void*)(NULL))){
  2030. {T319*n=((T319*)malloc(sizeof(*n))/*12*/);
  2031. *n=M319;
  2032. r319make(n,_sp,_items);
  2033. _export_list=((T0*)n);
  2034. }
  2035. /*[IRF3.3set_export*/((((T58*)((T58*)((/*RF2*/(C)->_last_parent/*124*/)))))->_export_list)=(_export_list);
  2036. /*]*/
  2037. }
  2038. /*FI]*/
  2039. _state=4;
  2040. }
  2041. /*FI]*/
  2042. }
  2043.  else{r34fcp(C,((T0*)ms34_19992));
  2044. _state=4;
  2045. }}
  2046. }
  2047. }
  2048. /*FI]*/
  2049. }
  2050.  
  2051.  
  2052. void r34a_creation_clause(T34* C,T68 a1){
  2053. T0* _creation_clause=NULL;
  2054. T0* _comments=NULL;
  2055. T0* _clients=NULL;
  2056. _clients=r34a_clients(C);
  2057. _comments=r34get_comments(C);
  2058. /*[IF*/
  2059. if(r34a_feature_name_list(C)){
  2060. }
  2061. /*FI]*/
  2062. {T78*n=((T78*)malloc(sizeof(*n))/*20*/);
  2063. *n=M78;
  2064. r78make(n,a1,_clients,_comments,(/*RF2*/(C)->_last_feature_name_list/*84*/));
  2065. _creation_clause=((T0*)n);
  2066. }
  2067. r51add_creation_clause((T51*)((/*RF2*/(C)->_last_base_class/*40*/)),_creation_clause);
  2068. }
  2069.  
  2070.  
  2071. void r34show_nb(T2 a1,T0* a2){
  2072. /*[IF*/
  2073. if((a1)>(0)){
  2074. r35w_put_string(((T0*)ms14_3038));
  2075. r35w_put_integer(a1);
  2076. r35w_put_string(a2);
  2077. }
  2078. /*FI]*/
  2079. }
  2080.  
  2081.  
  2082. T6 r34a_identifier1(T34* C){
  2083. T6 R=0;
  2084. T2 _c=0;
  2085. T2 _state=0;
  2086. /*[IF*/
  2087. if(r3is_letter((/*RF2*/(C)->_cc/*160*/))){
  2088. _c=(/*RF2*/(C)->_column/*148*/);
  2089. {T68 se_tmp0;
  2090. r107reset(&((/*RF2*/(C)->_tmp_name/*24*/)),(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_line/*152*/),_c),&se_tmp0)));
  2091. }
  2092. /*[IRF3.6extend*/{T3 b1=r3to_lower((/*RF2*/(C)->_cc/*160*/));
  2093. r7extend((T7*)(((T0*)ms107_84672)),b1);
  2094. }/*]*/
  2095. while (!((_state)>(0)))
  2096. {
  2097. r34next_char(C);
  2098. {int z1=(/*RF2*/(C)->_cc/*160*/);
  2099.  
  2100. if(((48<=z1)&&(z1<=57))||(95==z1)||((97<=z1)&&(z1<=122))){
  2101. /*[IRF3.6extend*/{T3 b1=(/*RF2*/(C)->_cc/*160*/);
  2102. r7extend((T7*)(((T0*)ms107_84672)),b1);
  2103. }/*]*/
  2104. }
  2105.  else 
  2106. if(((65<=z1)&&(z1<=90))){
  2107. /*[IRF3.6extend*/{T3 b1=r3to_lower((/*RF2*/(C)->_cc/*160*/));
  2108. r7extend((T7*)(((T0*)ms107_84672)),b1);
  2109. }/*]*/
  2110. }
  2111.  else{_state=1;
  2112. }}
  2113. }
  2114. /*[IF*/
  2115. if(r107isa_keyword(&((/*RF2*/(C)->_tmp_name/*24*/)))){
  2116. (/*SFN*/C->_cc)=/*(IRF4.6first*/((/*RF2*/((T7*)(((T0*)ms107_84672)))->_storage/*0*/))[0]/*)*/;
  2117. (/*SFN*/C->_column)=_c;
  2118. }
  2119. else{
  2120. R=1;
  2121. r34skip_comments(C);
  2122. }
  2123. /*FI]*/
  2124. }
  2125. /*FI]*/
  2126. return R;
  2127. }
  2128.  
  2129.  
  2130. void r34fcp(T34* C,T0* a1){
  2131. {T68 se_tmp0;
  2132. r66add_position((*(se_tmp0=r34current_position(C),&se_tmp0)));
  2133. }
  2134. r34fatal_error(a1);
  2135. }
  2136.  
  2137.  
  2138. T6 r34a_character_constant(T34* C){
  2139. T6 R=0;
  2140. T3 _value=0;
  2141. T2 _printing_mode=0;
  2142. T2 _state=0;
  2143. T68 _sp={NULL,0};
  2144. /*[IF*/
  2145. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\47'))){
  2146. {T68 se_tmp0;
  2147. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_line/*152*/),(/*RF2*/(C)->_column/*148*/)),&se_tmp0));
  2148. }
  2149. R=1;
  2150. while (!((_state)>(2)))
  2151. {
  2152. r34next_char(C);
  2153. {int z1=_state;
  2154.  
  2155. if((0==z1)){
  2156. {int z2=(/*RF2*/(C)->_cc/*160*/);
  2157.  
  2158. if((37==z2)){
  2159. _state=1;
  2160. }
  2161.  else 
  2162. if((39==z2)){
  2163. r34fcp(C,((T0*)ms34_33396));
  2164. _state=2;
  2165. }
  2166.  else{_value=(/*RF2*/(C)->_cc/*160*/);
  2167. _printing_mode=0;
  2168. _state=2;
  2169. }}
  2170. }
  2171.  else 
  2172. if((1==z1)){
  2173. _printing_mode=1;
  2174. _state=2;
  2175. {int z2=(/*RF2*/(C)->_cc/*160*/);
  2176.  
  2177. if((65==z2)){
  2178. _value=((T3)'\100');
  2179. }
  2180.  else 
  2181. if((66==z2)){
  2182. _value=((T3)'\10');
  2183. }
  2184.  else 
  2185. if((67==z2)){
  2186. _value=((T3)'\136');
  2187. }
  2188.  else 
  2189. if((68==z2)){
  2190. _value=((T3)'\44');
  2191. }
  2192.  else 
  2193. if((70==z2)){
  2194. _value=((T3)'\14');
  2195. }
  2196.  else 
  2197. if((72==z2)){
  2198. _value=((T3)'\134');
  2199. }
  2200.  else 
  2201. if((76==z2)){
  2202. _value=((T3)'\176');
  2203. }
  2204.  else 
  2205. if((78==z2)){
  2206. _value=((T3)'\n');
  2207. }
  2208.  else 
  2209. if((81==z2)){
  2210. _value=((T3)'\140');
  2211. }
  2212.  else 
  2213. if((82==z2)){
  2214. _value=((T3)'\15');
  2215. }
  2216.  else 
  2217. if((83==z2)){
  2218. _value=((T3)'\43');
  2219. }
  2220.  else 
  2221. if((84==z2)){
  2222. _value=((T3)'\11');
  2223. }
  2224.  else 
  2225. if((85==z2)){
  2226. _value=((T3)'\0');
  2227. }
  2228.  else 
  2229. if((86==z2)){
  2230. _value=((T3)'\174');
  2231. }
  2232.  else 
  2233. if((37==z2)){
  2234. _value=((T3)'\45');
  2235. }
  2236.  else 
  2237. if((39==z2)){
  2238. _value=((T3)'\47');
  2239. }
  2240.  else 
  2241. if((34==z2)){
  2242. _value=((T3)'\42');
  2243. }
  2244.  else 
  2245. if((40==z2)){
  2246. _value=((T3)'\133');
  2247. }
  2248.  else 
  2249. if((41==z2)){
  2250. _value=((T3)'\135');
  2251. }
  2252.  else 
  2253. if((60==z2)){
  2254. _value=((T3)'\173');
  2255. }
  2256.  else 
  2257. if((62==z2)){
  2258. _value=((T3)'\175');
  2259. }
  2260.  else 
  2261. if((47==z2)){
  2262. r34a_ascii_code(C);
  2263. _value=((T3)((/*RF2*/(C)->_last_ascii_code/*36*/)));
  2264. _printing_mode=2;
  2265. }
  2266.  else{r34fcp(C,((T0*)ms34_44694));
  2267. }}
  2268. }
  2269.  else{_state=3;
  2270. {int z2=(/*RF2*/(C)->_cc/*160*/);
  2271.  
  2272. if((39==z2)){
  2273. }
  2274.  else{r34fcp(C,((T0*)ms34_33396));
  2275. }}
  2276. r34next_char(C);
  2277. r34skip_comments(C);
  2278. }}
  2279. }
  2280. {T160*n=((T160*)malloc(sizeof(*n))/*17*/);
  2281. *n=M160;
  2282. r160make(n,_sp,_value,_printing_mode);
  2283. (/*SFN*/C->_last_character_constant)=((T0*)n);
  2284. }
  2285. }
  2286. /*FI]*/
  2287. return R;
  2288. }
  2289.  
  2290.  
  2291. T0* r34parse_feature_name(T34* C){
  2292. T0* R=NULL;
  2293. /*[IF*/
  2294. if(r34a_feature_name(C)){
  2295. R=(/*RF2*/(C)->_last_feature_name/*80*/);
  2296. }
  2297. else{
  2298. r34fcp(C,((T0*)ms34_33286));
  2299. }
  2300. /*FI]*/
  2301. return R;
  2302. }
  2303. T0*oBC34lcs=NULL;
  2304.  
  2305.  
  2306. void r34a_local_var_list(T34* C){
  2307. T2 _state=0;
  2308. T2 _rank=0;
  2309. T0* _list=NULL;
  2310. T0* _declaration=NULL;
  2311. T0* _name_list=NULL;
  2312. T0* _name=NULL;
  2313. while (!((_state)>(4)))
  2314. {
  2315. {int z1=_state;
  2316.  
  2317. if((0==z1)){
  2318. /*[IF*/
  2319. if(r34a_identifier(C)){
  2320. _name=r107to_local_name1(&((/*RF2*/(C)->_tmp_name/*24*/)));
  2321. _state=1;
  2322. /*[IF*/
  2323. if(((/*RF2*/(C)->_arguments/*15*/))!=((void*)(NULL))){
  2324. _rank=r178rank_of((T178*)((/*RF2*/(C)->_arguments/*15*/)),(/*RF2*/(((T174*)_name))->_to_string/*12*/));
  2325. /*[IF*/
  2326. if((_rank)>(0)){
  2327. r66add_position((/*RF2*/(((T174*)_name))->_start_position/*4*/));
  2328. r34error((/*RF2*/((T181*)(/*(IRF4.6name*/r182item(((T182*)((/*RF2*/((T178*)((/*RF2*/(C)->_arguments/*15*/)))->_flat_list/*8*/))),_rank)/*)*/))->_start_position/*4*/),((T0*)ms34_112140));
  2329. }
  2330. /*FI]*/
  2331. }
  2332. /*FI]*/
  2333. }
  2334.  else if((((/*RF2*/(C)->_cc/*160*/))==(((T3)'\54')))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\73')))){
  2335. /*[IRF3.6wcp*/{T34* C1=C;
  2336. T0* b1=((T0*)ms34_38352);
  2337. {T68 se_tmp0;
  2338. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  2339. }
  2340. }/*]*/
  2341. (/*SFN*/C->_ok)=(r34skip1(C,((T3)'\54')))||(r34skip1(C,((T3)'\73')));
  2342. }
  2343. else{
  2344. _state=5;
  2345. }
  2346. /*FI]*/
  2347. }
  2348.  else 
  2349. if((1==z1)){
  2350. /*[IF*/
  2351. if(r34skip1(C,((T3)'\72'))){
  2352. /*[IF*/
  2353. if((_name_list)!=((void*)(NULL))){
  2354. r176add_last(((T176*)_name_list),_name);
  2355. _name=NULL;
  2356. }
  2357. /*FI]*/
  2358. _state=3;
  2359. }
  2360. else{
  2361. /*[IF*/
  2362. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\73'))){
  2363. /*[IRF3.6wcp*/{T34* C1=C;
  2364. T0* b1=((T0*)ms34_28980);
  2365. {T68 se_tmp0;
  2366. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  2367. }
  2368. }/*]*/
  2369. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  2370. }
  2371. else{
  2372. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\54'));
  2373. }
  2374. /*FI]*/
  2375. /*[IF*/
  2376. if((_name_list)==((void*)(NULL))){
  2377. {T176*n=((T176*)malloc(sizeof(*n))/*20*/);
  2378. *n=M176;
  2379. r176with_capacity(n,2,1);
  2380. _name_list=((T0*)n);
  2381. }
  2382. }
  2383. /*FI]*/
  2384. r176add_last(((T176*)_name_list),_name);
  2385. _name=NULL;
  2386. _state=2;
  2387. }
  2388. /*FI]*/
  2389. }
  2390.  else 
  2391. if((2==z1)){
  2392. /*[IF*/
  2393. if(r34a_identifier(C)){
  2394. _name=r107to_local_name1(&((/*RF2*/(C)->_tmp_name/*24*/)));
  2395. _state=1;
  2396. /*[IF*/
  2397. if(((/*RF2*/(C)->_arguments/*15*/))!=((void*)(NULL))){
  2398. _rank=r178rank_of((T178*)((/*RF2*/(C)->_arguments/*15*/)),(/*RF2*/(((T174*)_name))->_to_string/*12*/));
  2399. /*[IF*/
  2400. if((_rank)>(0)){
  2401. r66add_position((/*RF2*/(((T174*)_name))->_start_position/*4*/));
  2402. r66add_position((/*RF2*/((T181*)(/*(IRF4.6name*/r182item(((T182*)((/*RF2*/((T178*)((/*RF2*/(C)->_arguments/*15*/)))->_flat_list/*8*/))),_rank)/*)*/))->_start_position/*4*/));
  2403. /*[IRF3.6append*/{T0* b1=((T0*)ms34_112140a);
  2404. r7append((T7*)(oBC66explanation),b1);
  2405. }/*]*/
  2406. r66print_as_error((T66*)(oBC13eh));
  2407. }
  2408. /*FI]*/
  2409. }
  2410. /*FI]*/
  2411. }
  2412.  else if((((/*RF2*/(C)->_cc/*160*/))==(((T3)'\54')))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\73')))){
  2413. /*[IRF3.6wcp*/{T34* C1=C;
  2414. T0* b1=((T0*)ms34_38352);
  2415. {T68 se_tmp0;
  2416. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  2417. }
  2418. }/*]*/
  2419. (/*SFN*/C->_ok)=(r34skip1(C,((T3)'\54')))||(r34skip1(C,((T3)'\73')));
  2420. }
  2421. else{
  2422. _state=6;
  2423. }
  2424. /*FI]*/
  2425. }
  2426.  else 
  2427. if((3==z1)){
  2428. /*[IF*/
  2429. if(r34a_type(C)){
  2430. /*[IF*/
  2431. if((_name_list)!=((void*)(NULL))){
  2432. {T311*n=((T311*)malloc(sizeof(*n))/*8*/);
  2433. *n=M311;
  2434. r311make(n,_name_list,(/*RF2*/(C)->_last_type/*132*/));
  2435. _declaration=((T0*)n);
  2436. }
  2437. _name_list=NULL;
  2438. }
  2439. else{
  2440. {T314*n=((T314*)malloc(sizeof(*n))/*8*/);
  2441. *n=M314;
  2442. r314make(n,_name,(/*RF2*/(C)->_last_type/*132*/));
  2443. _declaration=((T0*)n);
  2444. }
  2445. _name=NULL;
  2446. }
  2447. /*FI]*/
  2448. /*[IF*/
  2449. if((_list)==((void*)(NULL))){
  2450. {T309*n=((T309*)malloc(sizeof(*n))/*16*/);
  2451. *n=M309;
  2452. r309with_capacity(n,2,1);
  2453. _list=((T0*)n);
  2454. }
  2455. }
  2456. /*FI]*/
  2457. r309add_last(((T309*)_list),_declaration);
  2458. _state=4;
  2459. }
  2460. else{
  2461. _state=6;
  2462. }
  2463. /*FI]*/
  2464. }
  2465.  else{/*[IF*/
  2466. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\54'))){
  2467. /*[IRF3.6wcp*/{T34* C1=C;
  2468. T0* b1=((T0*)ms34_28980a);
  2469. {T68 se_tmp0;
  2470. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  2471. }
  2472. }/*]*/
  2473. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\54'));
  2474. _state=0;
  2475. }
  2476. else{
  2477. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  2478. _state=0;
  2479. }
  2480. /*FI]*/
  2481. }}
  2482. }
  2483. /*[IF*/
  2484. if((_state)==(6)){
  2485. r34fcp(C,((T0*)ms34_36168));
  2486. }
  2487.  else if((_list)!=((void*)(NULL))){
  2488. {T169*n=((T169*)malloc(sizeof(*n))/*12*/);
  2489. *n=M169;
  2490. /*[IRF3.6make*/{T169* C1=n;
  2491. T0* b1=_list;
  2492. r169declaration_list_make(C1,b1);
  2493. }/*]*/
  2494. (/*SFN*/C->_local_vars)=((T0*)n);
  2495. }
  2496. /*[IRF3.3set_local_vars*/((((T197*)(&((/*RF2*/(C)->_tmp_feature/*161*/)))))->_local_vars)=((/*RF2*/(C)->_local_vars/*19*/));
  2497. /*]*/
  2498. }
  2499. /*FI]*/
  2500. }
  2501.  
  2502.  
  2503. T68 r34pos(T34* C,T2 a1,T2 a2){
  2504. T68 R={NULL,0};
  2505. r68set(&R,a1,a2,(/*RF2*/(C)->_current_id/*190*/),(/*RF2*/(C)->_last_base_class/*40*/));
  2506. return R;
  2507. }
  2508.  
  2509.  
  2510. T6 r34a_loop(T34* C){
  2511. T6 R=0;
  2512. T0* _al=NULL;
  2513. T0* _hc=NULL;
  2514. T0* _lb=NULL;
  2515. T0* _ue=NULL;
  2516. T0* _vc=NULL;
  2517. T0* _ic=NULL;
  2518. T0* _i=NULL;
  2519. T0* _e_loop=NULL;
  2520. T2 _c2=0;
  2521. T2 _l2=0;
  2522. T2 _c1=0;
  2523. T2 _l1=0;
  2524. /*[IF*/
  2525. if(r34a_keyword(C,((T0*)ms14_1744))){
  2526. R=1;
  2527. _l1=(/*RF2*/(C)->_start_line/*144*/);
  2528. _c1=(/*RF2*/(C)->_start_column/*140*/);
  2529. _i=r34a_compound1(C);
  2530. /*[IF*/
  2531. if(r34a_keyword(C,((T0*)ms14_14292))){
  2532. _l2=(/*RF2*/(C)->_start_line/*144*/);
  2533. _c2=(/*RF2*/(C)->_start_column/*140*/);
  2534. _hc=r34get_comments(C);
  2535. _al=r34a_assertion(C);
  2536. /*[IF*/
  2537. if(((_hc)!=((void*)(NULL)))||((_al)!=((void*)(NULL)))){
  2538. {T68 se_tmp0;
  2539. {T242*n=((T242*)malloc(sizeof(*n))/*24*/);
  2540. *n=M242;
  2541. r242make(n,(*(se_tmp0=r34pos(C,_l2,_c2),&se_tmp0)),_hc,_al);
  2542. _ic=((T0*)n);
  2543. }
  2544. }
  2545. }
  2546. /*FI]*/
  2547. }
  2548. /*FI]*/
  2549. /*[IF*/
  2550. if(r34a_keyword(C,((T0*)ms14_9401))){
  2551. /*[IF*/
  2552. if((r34a_tag_mark(C))&&(r34a_expression(C))){
  2553. {T244*n=((T244*)malloc(sizeof(*n))/*20*/);
  2554. *n=M244;
  2555. r244make(n,(/*RF2*/(C)->_last_tag_mark/*136*/),(/*RF2*/(C)->_last_expression/*72*/),r34get_comments(C));
  2556. _vc=((T0*)n);
  2557. }
  2558. }
  2559.  else if(r34a_expression(C)){
  2560. {T245*n=((T245*)malloc(sizeof(*n))/*16*/);
  2561. *n=M245;
  2562. r245make(n,(/*RF2*/(C)->_last_expression/*72*/),r34get_comments(C));
  2563. _vc=((T0*)n);
  2564. }
  2565. }
  2566. else{
  2567. /*[IRF3.6wcp*/{T34* C1=C;
  2568. T0* b1=((T0*)ms34_85386);
  2569. {T68 se_tmp0;
  2570. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  2571. }
  2572. }/*]*/
  2573. }
  2574. /*FI]*/
  2575. }
  2576. /*FI]*/
  2577. /*[IF*/
  2578. if(r34a_keyword(C,((T0*)ms14_2780))){
  2579. /*[IF*/
  2580. if(r34a_expression(C)){
  2581. _ue=X104add_comment((/*RF2*/(C)->_last_expression/*72*/),r34get_comments(C));
  2582. }
  2583. else{
  2584. r34fcp(C,((T0*)ms34_77508));
  2585. _ue=(/*RF2*/(C)->_last_expression/*72*/);
  2586. }
  2587. /*FI]*/
  2588. }
  2589. else{
  2590. r34fcp(C,((T0*)ms34_82473));
  2591. _ue=(/*RF2*/(C)->_last_expression/*72*/);
  2592. }
  2593. /*FI]*/
  2594. /*[IF*/
  2595. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\73'))){
  2596. /*[IRF3.6wcp*/{T34* C1=C;
  2597. T0* b1=((T0*)ms14_41100);
  2598. {T68 se_tmp0;
  2599. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  2600. }
  2601. }/*]*/
  2602. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  2603. }
  2604. /*FI]*/
  2605. /*[IF*/
  2606. if(!(r34a_keyword(C,((T0*)ms14_1768)))){
  2607. /*[IRF3.6wcp*/{T34* C1=C;
  2608. T0* b1=((T0*)ms34_78588);
  2609. {T68 se_tmp0;
  2610. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  2611. }
  2612. }/*]*/
  2613. }
  2614. /*FI]*/
  2615. _lb=r34a_compound2(C,((T0*)ms34_14067),((T0*)ms14_933));
  2616. {T68 se_tmp0;
  2617. {T243*n=((T243*)malloc(sizeof(*n))/*36*/);
  2618. *n=M243;
  2619. r243make(n,(*(se_tmp0=r34pos(C,_l1,_c1),&se_tmp0)),_i,_ic,_vc,_ue,_lb);
  2620. _e_loop=((T0*)n);
  2621. }
  2622. }
  2623. (/*SFN*/C->_last_instruction)=_e_loop;
  2624. }
  2625. /*FI]*/
  2626. return R;
  2627. }
  2628.  
  2629.  
  2630. T6 r34a_free_operator(T34* C){
  2631. T6 R=0;
  2632. /*[IF*/
  2633. if((((((/*RF2*/(C)->_cc/*160*/))==(((T3)'\100')))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\43'))))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\174'))))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\46')))){
  2634. R=1;
  2635. {T68 se_tmp0;
  2636. r107reset(&((/*RF2*/(C)->_tmp_name/*24*/)),(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_line/*152*/),(/*RF2*/(C)->_column/*148*/)),&se_tmp0)));
  2637. }
  2638. /*[IRF3.6extend*/{T3 b1=(/*RF2*/(C)->_cc/*160*/);
  2639. r7extend((T7*)(((T0*)ms107_84672)),b1);
  2640. }/*]*/
  2641. r34next_char(C);
  2642. while (!((((((/*RF2*/(C)->_cc/*160*/))==(((T3)'\n')))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\40'))))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\11'))))||(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\42')))))
  2643. {
  2644. /*[IRF3.6extend*/{T3 b1=(/*RF2*/(C)->_cc/*160*/);
  2645. r7extend((T7*)(((T0*)ms107_84672)),b1);
  2646. }/*]*/
  2647. r34next_char(C);
  2648. }
  2649. r34skip_comments(C);
  2650. }
  2651. /*FI]*/
  2652. return R;
  2653. }
  2654.  
  2655.  
  2656. T6 r34a_binary(T34* C,T68 a1){
  2657. T6 R=0;
  2658. R=1;
  2659. /*[IF*/
  2660. if(r34skip2(C,((T3)'\74'),((T3)'\75'))){
  2661. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2662. *n=M129;
  2663. r129make(n,((T0*)ms15_242),a1);
  2664. (/*SFN*/C->_last_binary)=((T0*)n);
  2665. }
  2666. }
  2667.  else if(r34skip2(C,((T3)'\76'),((T3)'\75'))){
  2668. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2669. *n=M129;
  2670. r129make(n,((T0*)ms15_246),a1);
  2671. (/*SFN*/C->_last_binary)=((T0*)n);
  2672. }
  2673. }
  2674.  else if(r34skip2(C,((T3)'\57'),((T3)'\57'))){
  2675. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2676. *n=M129;
  2677. r129make(n,((T0*)ms15_188),a1);
  2678. (/*SFN*/C->_last_binary)=((T0*)n);
  2679. }
  2680. }
  2681.  else if(r34skip2(C,((T3)'\134'),((T3)'\134'))){
  2682. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2683. *n=M129;
  2684. r129make(n,((T0*)ms15_368),a1);
  2685. (/*SFN*/C->_last_binary)=((T0*)n);
  2686. }
  2687. }
  2688.  else if(r34skip1(C,((T3)'\53'))){
  2689. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2690. *n=M129;
  2691. r129make(n,((T0*)ms15_43),a1);
  2692. (/*SFN*/C->_last_binary)=((T0*)n);
  2693. }
  2694. }
  2695.  else if(r34skip1(C,((T3)'\55'))){
  2696. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2697. *n=M129;
  2698. r129make(n,((T0*)ms15_45),a1);
  2699. (/*SFN*/C->_last_binary)=((T0*)n);
  2700. }
  2701. }
  2702.  else if(r34skip1(C,((T3)'\52'))){
  2703. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2704. *n=M129;
  2705. r129make(n,((T0*)ms15_42),a1);
  2706. (/*SFN*/C->_last_binary)=((T0*)n);
  2707. }
  2708. }
  2709.  else if(r34skip1(C,((T3)'\57'))){
  2710. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2711. *n=M129;
  2712. r129make(n,((T0*)ms15_47),a1);
  2713. (/*SFN*/C->_last_binary)=((T0*)n);
  2714. }
  2715. }
  2716.  else if(r34skip1(C,((T3)'\76'))){
  2717. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2718. *n=M129;
  2719. r129make(n,((T0*)ms15_62),a1);
  2720. (/*SFN*/C->_last_binary)=((T0*)n);
  2721. }
  2722. }
  2723.  else if(r34skip1(C,((T3)'\74'))){
  2724. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2725. *n=M129;
  2726. r129make(n,((T0*)ms15_60),a1);
  2727. (/*SFN*/C->_last_binary)=((T0*)n);
  2728. }
  2729. }
  2730.  else if(r34skip1(C,((T3)'\136'))){
  2731. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2732. *n=M129;
  2733. r129make(n,((T0*)ms15_94),a1);
  2734. (/*SFN*/C->_last_binary)=((T0*)n);
  2735. }
  2736. }
  2737.  else if(r34a_keyword(C,((T0*)ms15_1035a))){
  2738. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2739. *n=M129;
  2740. r129make(n,((T0*)ms15_1035a),a1);
  2741. (/*SFN*/C->_last_binary)=((T0*)n);
  2742. }
  2743. }
  2744.  else if(r34a_keyword(C,((T0*)ms15_9408))){
  2745. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2746. *n=M129;
  2747. r129make(n,((T0*)ms15_9408),a1);
  2748. (/*SFN*/C->_last_binary)=((T0*)n);
  2749. }
  2750. }
  2751.  else if(r34a_keyword(C,((T0*)ms15_921))){
  2752. /*[IF*/
  2753. if(r34a_keyword(C,((T0*)ms14_1724))){
  2754. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2755. *n=M129;
  2756. r129make(n,((T0*)ms15_10680),a1);
  2757. (/*SFN*/C->_last_binary)=((T0*)n);
  2758. }
  2759. }
  2760. else{
  2761. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2762. *n=M129;
  2763. r129make(n,((T0*)ms15_921),a1);
  2764. (/*SFN*/C->_last_binary)=((T0*)n);
  2765. }
  2766. }
  2767. /*FI]*/
  2768. }
  2769.  else if(r34a_keyword(C,((T0*)ms15_450))){
  2770. /*[IF*/
  2771. if(r34a_keyword(C,((T0*)ms14_1700))){
  2772. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2773. *n=M129;
  2774. r129make(n,((T0*)ms15_8211),a1);
  2775. (/*SFN*/C->_last_binary)=((T0*)n);
  2776. }
  2777. }
  2778. else{
  2779. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2780. *n=M129;
  2781. r129make(n,((T0*)ms15_450),a1);
  2782. (/*SFN*/C->_last_binary)=((T0*)n);
  2783. }
  2784. }
  2785. /*FI]*/
  2786. }
  2787. else{
  2788. (/*SFN*/C->_last_binary)=NULL;
  2789. R=0;
  2790. }
  2791. /*FI]*/
  2792. return R;
  2793. }
  2794.  
  2795.  
  2796. T6 r34a_check(T34* C){
  2797. T6 R=0;
  2798. T0* _al=NULL;
  2799. T0* _hc=NULL;
  2800. T68 _sp={NULL,0};
  2801. /*[IF*/
  2802. if(r34a_keyword(C,((T0*)ms14_2550))){
  2803. {T68 se_tmp0;
  2804. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  2805. }
  2806. _hc=r34get_comments(C);
  2807. _al=r34a_assertion(C);
  2808. /*[IF*/
  2809. if(!(r34a_keyword(C,((T0*)ms14_933)))){
  2810. r66add_position(_sp);
  2811. r34fcp(C,((T0*)ms34_141350));
  2812. }
  2813. /*FI]*/
  2814. /*[IF*/
  2815. if(((_hc)!=((void*)(NULL)))||((_al)!=((void*)(NULL)))){
  2816. {T217*n=((T217*)malloc(sizeof(*n))/*12*/);
  2817. *n=M217;
  2818. r217make(n,_sp,_hc,_al);
  2819. (/*SFN*/C->_last_instruction)=((T0*)n);
  2820. }
  2821. R=1;
  2822. }
  2823.  else if(r34skip1(C,((T3)'\73'))){
  2824. }
  2825. /*FI]*/
  2826. }
  2827. /*FI]*/
  2828. return R;
  2829. }
  2830.  
  2831.  
  2832. void r34a_then_part_list(T34* C,T0* a1){
  2833. /*[IF*/
  2834. if(!(r34a_then_part(C,a1))){
  2835. r34fcp(C,((T0*)ms34_27720));
  2836. }
  2837. /*FI]*/
  2838. while (!(!(r34a_keyword(C,((T0*)ms14_6852)))))
  2839. {
  2840. /*[IF*/
  2841. if(!(r34a_then_part(C,a1))){
  2842. r34fcp(C,((T0*)ms34_37500));
  2843. }
  2844. /*FI]*/
  2845. }
  2846. }
  2847.  
  2848.  
  2849. T0* r34parse_c_name(T34* C){
  2850. T0* R=NULL;
  2851. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  2852. *n=M7;
  2853. r7make(n,32);
  2854. R=((T0*)n);
  2855. }
  2856. while (!(r3is_separator((/*RF2*/(C)->_cc/*160*/))))
  2857. {
  2858. r7extend(((T7*)R),(/*RF2*/(C)->_cc/*160*/));
  2859. r34next_char(C);
  2860. }
  2861. r34skip_comments(C);
  2862. return R;
  2863. }
  2864.  
  2865.  
  2866. T6 r34a_precursor(T34* C,T6 a1){
  2867. T6 R=0;
  2868. T0* _args=NULL;
  2869. T0* _parent=NULL;
  2870. T2 _c=0;
  2871. T2 _l=0;
  2872. /*[IF*/
  2873. if(r34skip1(C,((T3)'\173'))){
  2874. R=1;
  2875. _l=(/*RF2*/(C)->_start_line/*144*/);
  2876. _c=(/*RF2*/(C)->_start_column/*140*/);
  2877. /*[IF*/
  2878. if(r34skip1(C,((T3)'\173'))){
  2879. {T68 se_tmp0;
  2880. r34warning((*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)),((T0*)ms34_103845a));
  2881. }
  2882. }
  2883. /*FI]*/
  2884. /*[IF*/
  2885. if(r34a_base_class_name(C)){
  2886. _parent=(/*RF2*/(C)->_last_class_name/*64*/);
  2887. }
  2888. /*FI]*/
  2889. /*[IF*/
  2890. if(!(r34skip1(C,((T3)'\175')))){
  2891. r34fcp(C,((T0*)ms34_202032));
  2892. }
  2893. /*FI]*/
  2894. /*[IF*/
  2895. if(r34skip1(C,((T3)'\175'))){
  2896. {T68 se_tmp0;
  2897. r34warning((*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)),((T0*)ms34_103845));
  2898. }
  2899. }
  2900. /*FI]*/
  2901. }
  2902. /*FI]*/
  2903. /*[IF*/
  2904. if(r34a_keyword(C,((T0*)ms15_13833))){
  2905. R=1;
  2906. /*[IF*/
  2907. if((_l)==(0)){
  2908. _l=(/*RF2*/(C)->_start_line/*144*/);
  2909. _c=(/*RF2*/(C)->_start_column/*140*/);
  2910. }
  2911. /*FI]*/
  2912. _args=r34a_actuals(C);
  2913. }
  2914.  else if((_l)>(0)){
  2915. r34fcp(C,((T0*)ms34_63456));
  2916. }
  2917. /*FI]*/
  2918. /*[IF*/
  2919. if(R){
  2920. /*[IF*/
  2921. if(r34skip1(C,((T3)'\56'))){
  2922. {T68 se_tmp0;
  2923. {T166*n=((T166*)malloc(sizeof(*n))/*28*/);
  2924. *n=M166;
  2925. r166make(n,(*(se_tmp0=r34pos(C,_l,_c),&se_tmp0)),_parent,_args);
  2926. (/*SFN*/C->_last_expression)=((T0*)n);
  2927. }
  2928. }
  2929. r34a_after_a_dot(C,a1,(/*RF2*/(C)->_last_expression/*72*/));
  2930. }
  2931.  else if(a1){
  2932. {T68 se_tmp0;
  2933. {T168*n=((T168*)malloc(sizeof(*n))/*28*/);
  2934. *n=M168;
  2935. r168make(n,(*(se_tmp0=r34pos(C,_l,_c),&se_tmp0)),_parent,_args);
  2936. (/*SFN*/C->_last_instruction)=((T0*)n);
  2937. }
  2938. }
  2939. }
  2940. else{
  2941. {T68 se_tmp0;
  2942. {T166*n=((T166*)malloc(sizeof(*n))/*28*/);
  2943. *n=M166;
  2944. r166make(n,(*(se_tmp0=r34pos(C,_l,_c),&se_tmp0)),_parent,_args);
  2945. (/*SFN*/C->_last_expression)=((T0*)n);
  2946. }
  2947. }
  2948. }
  2949. /*FI]*/
  2950. }
  2951. /*FI]*/
  2952. return R;
  2953. }
  2954.  
  2955.  
  2956. T6 r34a_prefix(T34* C){
  2957. T6 R=0;
  2958. /*[IF*/
  2959. if(r34a_keyword(C,((T0*)ms14_7524a))){
  2960. R=1;
  2961. /*[IF*/
  2962. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\42'))){
  2963. r34next_char(C);
  2964. }
  2965. else{
  2966. /*[IRF3.6wcp*/{T34* C1=C;
  2967. T0* b1=((T0*)ms34_88647);
  2968. {T68 se_tmp0;
  2969. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  2970. }
  2971. }/*]*/
  2972. }
  2973. /*FI]*/
  2974. /*[IF*/
  2975. if(r34a_unary(C)){
  2976. }
  2977.  else if(r34a_free_operator(C)){
  2978. (/*SFN*/C->_last_prefix)=r107to_prefix_name(&((/*RF2*/(C)->_tmp_name/*24*/)));
  2979. }
  2980. else{
  2981. r34fcp(C,((T0*)ms34_56460));
  2982. }
  2983. /*FI]*/
  2984. /*[IF*/
  2985. if(!(r34skip1(C,((T3)'\42')))){
  2986. /*[IRF3.6wcp*/{T34* C1=C;
  2987. T0* b1=((T0*)ms34_37992);
  2988. {T68 se_tmp0;
  2989. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  2990. }
  2991. }/*]*/
  2992. }
  2993. /*FI]*/
  2994. }
  2995. /*FI]*/
  2996. return R;
  2997. }
  2998.  
  2999.  
  3000. void r34fatal_error(T0* a1){
  3001. /*[IRF3.6append*/{T0* b1=a1;
  3002. r7append((T7*)(oBC66explanation),b1);
  3003. }/*]*/
  3004. r66print_as_fatal_error((T66*)(oBC13eh));
  3005. }
  3006.  
  3007.  
  3008. T6 r34a_identifier2(T34* C){
  3009. T6 R=0;
  3010. T6 _do_warning=0;
  3011. T2 _c=0;
  3012. T2 _state=0;
  3013. /*[IF*/
  3014. if(r3is_letter((/*RF2*/(C)->_cc/*160*/))){
  3015. _c=(/*RF2*/(C)->_column/*148*/);
  3016. {T68 se_tmp0;
  3017. r107reset(&((/*RF2*/(C)->_tmp_name/*24*/)),(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_line/*152*/),_c),&se_tmp0)));
  3018. }
  3019. /*[IRF3.6extend*/{T3 b1=(/*RF2*/(C)->_cc/*160*/);
  3020. r7extend((T7*)(((T0*)ms107_84672)),b1);
  3021. }/*]*/
  3022. while (!((_state)>(0)))
  3023. {
  3024. r34next_char(C);
  3025. {int z1=(/*RF2*/(C)->_cc/*160*/);
  3026.  
  3027. if(((48<=z1)&&(z1<=57))||(95==z1)||((97<=z1)&&(z1<=122))){
  3028. /*[IRF3.6extend*/{T3 b1=(/*RF2*/(C)->_cc/*160*/);
  3029. r7extend((T7*)(((T0*)ms107_84672)),b1);
  3030. }/*]*/
  3031. }
  3032.  else 
  3033. if(((65<=z1)&&(z1<=90))){
  3034. _do_warning=1;
  3035. /*[IRF3.6extend*/{T3 b1=(/*RF2*/(C)->_cc/*160*/);
  3036. r7extend((T7*)(((T0*)ms107_84672)),b1);
  3037. }/*]*/
  3038. }
  3039.  else{_state=1;
  3040. }}
  3041. }
  3042. /*[IF*/
  3043. if(r107isa_keyword(&((/*RF2*/(C)->_tmp_name/*24*/)))){
  3044. (/*SFN*/C->_cc)=/*(IRF4.6first*/((/*RF2*/((T7*)(((T0*)ms107_84672)))->_storage/*0*/))[0]/*)*/;
  3045. (/*SFN*/C->_column)=_c;
  3046. }
  3047. else{
  3048. R=1;
  3049. r34skip_comments(C);
  3050. /*[IF*/
  3051. if((/*RF2*/(C)->_no_style_warning/*1*/)){
  3052. }
  3053.  else if(_do_warning){
  3054. r34warning((/*RF2*/((/*RF2*/(C)->_tmp_name/*24*/))._start_position/*0*/),((T0*)ms34_115650));
  3055. }
  3056. /*FI]*/
  3057. }
  3058. /*FI]*/
  3059. }
  3060. /*FI]*/
  3061. return R;
  3062. }
  3063.  
  3064.  
  3065. T0* r34id_provider(void){
  3066. if(fBC13id_provider==0){fBC13id_provider=1;{
  3067. {T39*n=((T39*)malloc(sizeof(*n))/*4*/);
  3068. *n=M39;
  3069. oBC13id_provider=((T0*)n);
  3070. r39make(n);
  3071. }
  3072. }}
  3073. return oBC13id_provider;
  3074. }
  3075.  
  3076.  
  3077. void r34warning(T68 a1,T0* a2){
  3078. r66add_position(a1);
  3079. /*[IRF3.6append*/{T0* b1=a2;
  3080. r7append((T7*)(oBC66explanation),b1);
  3081. }/*]*/
  3082. r66print_as_warning((T66*)(oBC13eh));
  3083. }
  3084.  
  3085.  
  3086. T0* r34get_comments(T34* C){
  3087. T0* R=NULL;
  3088. R=(/*RF2*/(C)->_last_comments/*3*/);
  3089. (/*SFN*/C->_last_comments)=NULL;
  3090. return R;
  3091. }
  3092.  
  3093.  
  3094. T0* r34parse_run_type(T34* C){
  3095. T0* R=NULL;
  3096. /*[IF*/
  3097. if(r34a_class_type(C)){
  3098. R=(/*RF2*/(C)->_last_class_type/*68*/);
  3099. }
  3100. else{
  3101. r34fcp(C,((T0*)ms34_25156));
  3102. }
  3103. /*FI]*/
  3104. return R;
  3105. }
  3106.  
  3107.  
  3108. void r34error(T68 a1,T0* a2){
  3109. r66add_position(a1);
  3110. /*[IRF3.6append*/{T0* b1=a2;
  3111. r7append((T7*)(oBC66explanation),b1);
  3112. }/*]*/
  3113. r66print_as_error((T66*)(oBC13eh));
  3114. }
  3115.  
  3116.  
  3117. T0* r34to_call(T0* a1,T0* a2,T0* a3){
  3118. T0* R=NULL;
  3119. /*[IF*/
  3120. if((a2)==((void*)(NULL))){
  3121. R=a1;
  3122. }
  3123.  else if((a3)==((void*)(NULL))){
  3124. {T140*n=((T140*)malloc(sizeof(*n))/*16*/);
  3125. *n=M140;
  3126. r140make(n,a1,a2);
  3127. R=((T0*)n);
  3128. }
  3129. }
  3130.  else if((/*SSFRF4*//*X139count*/r139count(((T139*)a3)))==(1)){
  3131. {T142*n=((T142*)malloc(sizeof(*n))/*20*/);
  3132. *n=M142;
  3133. r142make(n,a1,a2,a3);
  3134. R=((T0*)n);
  3135. }
  3136. }
  3137. else{
  3138. {T143*n=((T143*)malloc(sizeof(*n))/*20*/);
  3139. *n=M143;
  3140. r143make(n,a1,a2,a3);
  3141. R=((T0*)n);
  3142. }
  3143. }
  3144. /*FI]*/
  3145. return R;
  3146. }
  3147.  
  3148.  
  3149. T6 r34a_then_part(T34* C,T0* a1){
  3150. T6 R=0;
  3151. T0* _expression=NULL;
  3152. /*[IF*/
  3153. if(r34a_expression(C)){
  3154. R=1;
  3155. _expression=X104add_comment((/*RF2*/(C)->_last_expression/*72*/),r34get_comments(C));
  3156. /*[IF*/
  3157. if(!(r34a_keyword(C,((T0*)ms14_1724)))){
  3158. /*[IRF3.6wcp*/{T34* C1=C;
  3159. T0* b1=((T0*)ms34_13832);
  3160. {T68 se_tmp0;
  3161. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  3162. }
  3163. }/*]*/
  3164. }
  3165. /*FI]*/
  3166. r221add_if_then(((T221*)a1),_expression,r34a_compound1(C));
  3167. }
  3168. /*FI]*/
  3169. return R;
  3170. }
  3171.  
  3172.  
  3173. T6 r34a_type_formal_generic(T34* C){
  3174. T6 R=0;
  3175. T2 _rank=0;
  3176. T0* _cn=NULL;
  3177. T0* _fga=NULL;
  3178. /*[IF*/
  3179. if(((/*RF2*/(C)->_formal_generic_list/*9*/))!=((void*)(NULL))){
  3180. _rank=1;
  3181. while (!((R)||((_rank)>(/*(IRF4.6count*/(/*RF2*/(((T279*)((/*RF2*/((T94*)((/*RF2*/(C)->_formal_generic_list/*9*/)))->_list/*8*/))))->_upper/*8*/)/*)*/))))
  3182. {
  3183. _fga=/*(IRF4.6item*/r279item(((T279*)((/*RF2*/((T94*)((/*RF2*/(C)->_formal_generic_list/*9*/)))->_list/*8*/))),_rank)/*)*/;
  3184. /*[IF*/
  3185. if(r34a_keyword(C,(/*RF2*/((T61*)((/*RF2*/(((T278*)_fga))->_name/*0*/)))->_to_string/*8*/))){
  3186. {T68 se_tmp0;
  3187. {T61*n=((T61*)malloc(sizeof(*n))/*12*/);
  3188. *n=M61;
  3189. r61make(n,(/*RF2*/((T61*)((/*RF2*/(((T278*)_fga))->_name/*0*/)))->_to_string/*8*/),(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  3190. _cn=((T0*)n);
  3191. }
  3192. }
  3193. {T280*n=((T280*)malloc(sizeof(*n))/*16*/);
  3194. *n=M280;
  3195. r280make(n,_cn,_rank);
  3196. (/*SFN*/C->_last_type_formal_generic)=((T0*)n);
  3197. }
  3198. R=1;
  3199. }
  3200. /*FI]*/
  3201. _rank=(_rank)+(1);
  3202. }
  3203. }
  3204. /*FI]*/
  3205. return R;
  3206. }
  3207.  
  3208.  
  3209. void r34go_back_at(T34* C,T2 a1,T2 a2){
  3210. (/*SFN*/C->_line)=a1;
  3211. (/*SFN*/C->_column)=a2;
  3212. (/*SFN*/C->_current_line)=r76item(a1);
  3213. (/*SFN*/C->_cc)=/*(IRF4.6item*/((/*RF2*/((T7*)((/*RF2*/(C)->_current_line/*156*/)))->_storage/*0*/))[(a2)-(1)]/*)*/;
  3214. }
  3215.  
  3216.  
  3217. T6 r34a_when_part(T34* C,T0* a1){
  3218. T6 R=0;
  3219. T0* _constant=NULL;
  3220. T0* _e_when=NULL;
  3221. T2 _state=0;
  3222. /*[IF*/
  3223. if(r34a_keyword(C,((T0*)ms14_1736))){
  3224. R=1;
  3225. {T68 se_tmp0;
  3226. {T232*n=((T232*)malloc(sizeof(*n))/*28*/);
  3227. *n=M232;
  3228. r232make(n,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)),r34get_comments(C));
  3229. _e_when=((T0*)n);
  3230. }
  3231. }
  3232. while (!((_state)>(3)))
  3233. {
  3234. {int z1=_state;
  3235.  
  3236. if((0==z1)){
  3237. /*[IF*/
  3238. if(r34a_constant(C)){
  3239. _constant=(/*RF2*/(C)->_last_expression/*72*/);
  3240. _state=1;
  3241. }
  3242.  else if(r34a_keyword(C,((T0*)ms14_1724))){
  3243. /*[IF*/
  3244. if((_constant)!=((void*)(NULL))){
  3245. r232add_value(((T232*)_e_when),_constant);
  3246. }
  3247. /*FI]*/
  3248. /*[IRF3.3set_compound*/((((T232*)(((T232*)_e_when))))->_compound)=(r34a_compound1(C));
  3249. /*]*/
  3250. r231add_when(((T231*)a1),_e_when);
  3251. _state=4;
  3252. }
  3253.  else if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\54'))){
  3254. /*[IRF3.6wcp*/{T34* C1=C;
  3255. T0* b1=((T0*)ms34_47790);
  3256. {T68 se_tmp0;
  3257. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  3258. }
  3259. }/*]*/
  3260. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\54'));
  3261. }
  3262. else{
  3263. r34fcp(C,((T0*)ms34_22168));
  3264. _state=4;
  3265. }
  3266. /*FI]*/
  3267. }
  3268.  else 
  3269. if((1==z1)){
  3270. /*[IF*/
  3271. if(r34a_keyword(C,((T0*)ms14_1724))){
  3272. /*[IF*/
  3273. if((_constant)!=((void*)(NULL))){
  3274. r232add_value(((T232*)_e_when),_constant);
  3275. }
  3276. /*FI]*/
  3277. /*[IRF3.3set_compound*/((((T232*)(((T232*)_e_when))))->_compound)=(r34a_compound1(C));
  3278. /*]*/
  3279. r231add_when(((T231*)a1),_e_when);
  3280. _state=4;
  3281. }
  3282.  else if(r34skip2(C,((T3)'\56'),((T3)'\56'))){
  3283. _state=2;
  3284. }
  3285.  else if(r34skip1(C,((T3)'\54'))){
  3286. r232add_value(((T232*)_e_when),_constant);
  3287. _constant=NULL;
  3288. _state=0;
  3289. }
  3290. else{
  3291. r34fcp(C,((T0*)ms34_22168));
  3292. _state=4;
  3293. }
  3294. /*FI]*/
  3295. }
  3296.  else 
  3297. if((2==z1)){
  3298. /*[IF*/
  3299. if(r34a_constant(C)){
  3300. r232add_slice(((T232*)_e_when),_constant,(/*RF2*/(C)->_last_expression/*72*/));
  3301. _constant=NULL;
  3302. _state=3;
  3303. }
  3304. else{
  3305. r34fcp(C,((T0*)ms34_22168));
  3306. _state=4;
  3307. }
  3308. /*FI]*/
  3309. }
  3310.  else{/*[IF*/
  3311. if(r34skip1(C,((T3)'\54'))){
  3312. _state=0;
  3313. }
  3314.  else if(r34a_keyword(C,((T0*)ms14_1724))){
  3315. /*[IRF3.3set_compound*/((((T232*)(((T232*)_e_when))))->_compound)=(r34a_compound1(C));
  3316. /*]*/
  3317. r231add_when(((T231*)a1),_e_when);
  3318. _state=4;
  3319. }
  3320.  else if(r34a_constant(C)){
  3321. _constant=(/*RF2*/(C)->_last_expression/*72*/);
  3322. r34warning((/*RF2*/((/*RF2*/(C)->_tmp_name/*24*/))._start_position/*0*/),((T0*)ms34_9260));
  3323. _state=1;
  3324. }
  3325. else{
  3326. r34fcp(C,((T0*)ms34_22168));
  3327. _state=4;
  3328. }
  3329. /*FI]*/
  3330. }}
  3331. }
  3332. }
  3333. /*FI]*/
  3334. return R;
  3335. }
  3336.  
  3337.  
  3338. T6 r34a_argument(T34* C){
  3339. T6 R=0;
  3340. T2 _rank=0;
  3341. /*[IF*/
  3342. if(((/*RF2*/(C)->_arguments/*15*/))!=((void*)(NULL))){
  3343. _rank=r178rank_of((T178*)((/*RF2*/(C)->_arguments/*15*/)),r107aliased_string(&((/*RF2*/(C)->_tmp_name/*24*/))));
  3344. /*[IF*/
  3345. if((_rank)>(0)){
  3346. (/*SFN*/C->_last_expression)=r107to_argument_name2(&((/*RF2*/(C)->_tmp_name/*24*/)),(/*RF2*/(C)->_arguments/*15*/),_rank);
  3347. R=1;
  3348. }
  3349. /*FI]*/
  3350. }
  3351. /*FI]*/
  3352. return R;
  3353. }
  3354.  
  3355.  
  3356. T6 r34a_assignment_or_call(T34* C){
  3357. T6 R=0;
  3358. /*[IF*/
  3359. if((r34skip1(C,((T3)'\50')))&&(r34a_expression(C))){
  3360. R=1;
  3361. /*[IF*/
  3362. if(r34skip1(C,((T3)'\51'))){
  3363. r34a_r10(C,1,(/*RF2*/(C)->_last_expression/*72*/),NULL,NULL);
  3364. }
  3365. else{
  3366. r34fcp(C,((T0*)ms34_11050));
  3367. }
  3368. /*FI]*/
  3369. }
  3370.  else if(r34a_precursor(C,1)){
  3371. R=1;
  3372. }
  3373.  else if(r34a_identifier(C)){
  3374. R=1;
  3375. /*[IF*/
  3376. if(r34skip2(C,((T3)'\72'),((T3)'\75'))){
  3377. r34a_assignment_aux(C,1);
  3378. }
  3379.  else if(r34skip2(C,((T3)'\77'),((T3)'\75'))){
  3380. r34a_assignment_aux(C,0);
  3381. }
  3382.  else if((((r34a_current(C))||(r34a_result(C)))||(r34a_local_variable(C)))||(r34a_argument(C))){
  3383. r34a_r10(C,1,(/*RF2*/(C)->_last_expression/*72*/),NULL,NULL);
  3384. }
  3385. else{
  3386. r34a_procedure_call(C);
  3387. }
  3388. /*FI]*/
  3389. }
  3390. /*FI]*/
  3391. return R;
  3392. }
  3393.  
  3394.  
  3395. T6 r34a_constant(T34* C){
  3396. T6 R=0;
  3397. T0* _sfn=NULL;
  3398. T0* _implicit_current=NULL;
  3399. /*[IF*/
  3400. if(r34a_identifier(C)){
  3401. R=1;
  3402. _sfn=r107to_simple_feature_name(&((/*RF2*/(C)->_tmp_name/*24*/)));
  3403. {T184*n=((T184*)malloc(sizeof(*n))/*16*/);
  3404. *n=M184;
  3405. /*[IRF3.3make*/((((T184*)(n)))->_start_position)=((/*RF2*/(((T138*)_sfn))->_start_position/*4*/));
  3406. /*]*/
  3407. _implicit_current=((T0*)n);
  3408. }
  3409. {T140*n=((T140*)malloc(sizeof(*n))/*16*/);
  3410. *n=M140;
  3411. r140make(n,_implicit_current,_sfn);
  3412. (/*SFN*/C->_last_expression)=((T0*)n);
  3413. }
  3414. }
  3415.  else if(r34a_character_constant(C)){
  3416. R=1;
  3417. (/*SFN*/C->_last_expression)=(/*RF2*/(C)->_last_character_constant/*60*/);
  3418. }
  3419.  else if(r34a_integer_constant(C)){
  3420. R=1;
  3421. (/*SFN*/C->_last_expression)=(/*RF2*/(C)->_last_integer_constant/*104*/);
  3422. }
  3423. /*FI]*/
  3424. return R;
  3425. }
  3426.  
  3427.  
  3428. T6 r34a_e0(T34* C){
  3429. T6 R=0;
  3430. R=r34a_e1(C);
  3431. /*[IF*/
  3432. if(R){
  3433. r34a_r1(C,(/*RF2*/(C)->_last_expression/*72*/));
  3434. }
  3435. /*FI]*/
  3436. return R;
  3437. }
  3438.  
  3439.  
  3440. T6 r34a_e1(T34* C){
  3441. T6 R=0;
  3442. R=r34a_e2(C);
  3443. /*[IF*/
  3444. if(R){
  3445. r34a_r2(C,(/*RF2*/(C)->_last_expression/*72*/));
  3446. }
  3447. /*FI]*/
  3448. return R;
  3449. }
  3450.  
  3451.  
  3452. T6 r34a_e2(T34* C){
  3453. T6 R=0;
  3454. R=r34a_e3(C);
  3455. /*[IF*/
  3456. if(R){
  3457. r34a_r3(C,(/*RF2*/(C)->_last_expression/*72*/));
  3458. }
  3459. /*FI]*/
  3460. return R;
  3461. }
  3462.  
  3463.  
  3464. T6 r34a_e3(T34* C){
  3465. T6 R=0;
  3466. R=r34a_e4(C);
  3467. /*[IF*/
  3468. if(R){
  3469. r34a_r4(C,(/*RF2*/(C)->_last_expression/*72*/));
  3470. }
  3471. /*FI]*/
  3472. return R;
  3473. }
  3474.  
  3475.  
  3476. T6 r34a_e4(T34* C){
  3477. T6 R=0;
  3478. R=r34a_e5(C);
  3479. /*[IF*/
  3480. if(R){
  3481. r34a_r5(C,(/*RF2*/(C)->_last_expression/*72*/));
  3482. }
  3483. /*FI]*/
  3484. return R;
  3485. }
  3486.  
  3487.  
  3488. T6 r34a_e5(T34* C){
  3489. T6 R=0;
  3490. R=r34a_e6(C);
  3491. /*[IF*/
  3492. if(R){
  3493. r34a_r6(C,(/*RF2*/(C)->_last_expression/*72*/));
  3494. }
  3495. /*FI]*/
  3496. return R;
  3497. }
  3498.  
  3499.  
  3500. T6 r34a_e6(T34* C){
  3501. T6 R=0;
  3502. R=r34a_e7(C);
  3503. /*[IF*/
  3504. if(R){
  3505. r34a_r7(C,(/*RF2*/(C)->_last_expression/*72*/));
  3506. }
  3507. /*FI]*/
  3508. return R;
  3509. }
  3510.  
  3511.  
  3512. T6 r34a_e7(T34* C){
  3513. T6 R=0;
  3514. R=r34a_e8(C);
  3515. /*[IF*/
  3516. if(R){
  3517. r34a_r8(C,(/*RF2*/(C)->_last_expression/*72*/));
  3518. }
  3519. /*FI]*/
  3520. return R;
  3521. }
  3522.  
  3523.  
  3524. void r34a_function_call(T34* C){
  3525. T0* _implicit_current=NULL;
  3526. T0* _sfn=NULL;
  3527. _sfn=r107to_simple_feature_name(&((/*RF2*/(C)->_tmp_name/*24*/)));
  3528. {T184*n=((T184*)malloc(sizeof(*n))/*16*/);
  3529. *n=M184;
  3530. /*[IRF3.3make*/((((T184*)(n)))->_start_position)=((/*RF2*/(((T138*)_sfn))->_start_position/*4*/));
  3531. /*]*/
  3532. _implicit_current=((T0*)n);
  3533. }
  3534. r34a_r10(C,0,_implicit_current,_sfn,r34a_actuals(C));
  3535. }
  3536.  
  3537.  
  3538. T6 r34a_e8(T34* C){
  3539. T6 R=0;
  3540. T68 _sp={NULL,0};
  3541. T0* _prefix_freeop=NULL;
  3542. T0* _op=NULL;
  3543. /*[IF*/
  3544. if(r34a_keyword(C,((T0*)ms15_1011))){
  3545. {T68 se_tmp0;
  3546. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3547. }
  3548. /*[IF*/
  3549. if(r34a_e8(C)){
  3550. {T134*n=((T134*)malloc(sizeof(*n))/*16*/);
  3551. *n=M134;
  3552. r134make(n,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3553. (/*SFN*/C->_last_expression)=((T0*)n);
  3554. }
  3555. R=1;
  3556. }
  3557. else{
  3558. r34err_exp(_sp,((T0*)ms15_1011));
  3559. }
  3560. /*FI]*/
  3561. }
  3562.  else if(r34skip1(C,((T3)'\53'))){
  3563. {T68 se_tmp0;
  3564. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3565. }
  3566. /*[IF*/
  3567. if(r34a_e8(C)){
  3568. {T135*n=((T135*)malloc(sizeof(*n))/*16*/);
  3569. *n=M135;
  3570. r135make(n,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3571. (/*SFN*/C->_last_expression)=((T0*)n);
  3572. }
  3573. R=1;
  3574. }
  3575. else{
  3576. r34err_exp(_sp,((T0*)ms34_7510));
  3577. }
  3578. /*FI]*/
  3579. }
  3580.  else if(r34skip1(C,((T3)'\55'))){
  3581. {T68 se_tmp0;
  3582. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3583. }
  3584. /*[IF*/
  3585. if(r34a_e8(C)){
  3586. {T136*n=((T136*)malloc(sizeof(*n))/*16*/);
  3587. *n=M136;
  3588. r136make(n,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3589. (/*SFN*/C->_last_expression)=((T0*)n);
  3590. }
  3591. R=1;
  3592. }
  3593. else{
  3594. r34err_exp(_sp,((T0*)ms34_7530));
  3595. }
  3596. /*FI]*/
  3597. }
  3598.  else if(r34a_free_operator(C)){
  3599. _op=r107to_prefix_name(&((/*RF2*/(C)->_tmp_name/*24*/)));
  3600. /*[IF*/
  3601. if(r34a_e8(C)){
  3602. {T130*n=((T130*)malloc(sizeof(*n))/*16*/);
  3603. *n=M130;
  3604. r130make(n,(/*RF2*/(C)->_last_expression/*72*/),_op);
  3605. _prefix_freeop=((T0*)n);
  3606. }
  3607. (/*SFN*/C->_last_expression)=_prefix_freeop;
  3608. R=1;
  3609. }
  3610. else{
  3611. /*[IRF3.6append*/{T0* b1=((T0*)ms34_36624);
  3612. r7append((T7*)(oBC66explanation),b1);
  3613. }/*]*/
  3614. r34err_exp((/*RF2*/(((T133*)_op))->_start_position/*4*/),(/*RF2*/(((T133*)_op))->_to_string/*12*/));
  3615. }
  3616. /*FI]*/
  3617. }
  3618. else{
  3619. R=r34a_e9(C);
  3620. }
  3621. /*FI]*/
  3622. return R;
  3623. }
  3624.  
  3625.  
  3626. T6 r34a_e9(T34* C){
  3627. T6 R=0;
  3628. /*[IF*/
  3629. if(r34a_keyword(C,((T0*)ms14_957))){
  3630. /*[IF*/
  3631. if(!((/*RF2*/(C)->_in_ensure/*13*/))){
  3632. {T68 se_tmp0;
  3633. r34error((*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)),((T0*)ms34_196560));
  3634. }
  3635. }
  3636. /*FI]*/
  3637. /*[IF*/
  3638. if(r34a_e10(C)){
  3639. {T185*n=((T185*)malloc(sizeof(*n))/*16*/);
  3640. *n=M185;
  3641. /*[IRF3.3make*/((((T185*)(n)))->_expression)=((/*RF2*/(C)->_last_expression/*72*/));
  3642. /*]*/
  3643. (/*SFN*/C->_last_expression)=((T0*)n);
  3644. }
  3645. R=1;
  3646. }
  3647. else{
  3648. r34fcp(C,((T0*)ms34_63616));
  3649. }
  3650. /*FI]*/
  3651. }
  3652. else{
  3653. R=r34a_e10(C);
  3654. }
  3655. /*FI]*/
  3656. return R;
  3657. }
  3658.  
  3659.  
  3660. T6 r34end_of_input(T34* C){
  3661. T6 R=0;
  3662. R=((/*RF2*/(C)->_cc/*160*/))==(((T3)'\0'));
  3663. return R;
  3664. }
  3665.  
  3666.  
  3667. T6 r34a_real_constant(T34* C){
  3668. T6 R=0;
  3669. T2 _c=0;
  3670. T2 _l=0;
  3671. _l=(/*RF2*/(C)->_line/*152*/);
  3672. _c=(/*RF2*/(C)->_column/*148*/);
  3673. /*[IF*/
  3674. if(r34skip1(C,((T3)'\53'))){
  3675. /*[IF*/
  3676. if(r34a_real(C)){
  3677. R=1;
  3678. }
  3679. else{
  3680. r34go_back_at(C,_l,_c);
  3681. }
  3682. /*FI]*/
  3683. }
  3684.  else if(r34skip1(C,((T3)'\55'))){
  3685. /*[IF*/
  3686. if(r34a_real(C)){
  3687. /*[IRF3.5unary_minus*/r7add_first(((T7*)((/*RF2*/((T164*)((/*RF2*/(C)->_last_real_constant/*128*/)))->_to_string/*12*/))),((T3)'\55'));
  3688. /*]*/
  3689. R=1;
  3690. }
  3691. else{
  3692. r34go_back_at(C,_l,_c);
  3693. }
  3694. /*FI]*/
  3695. }
  3696.  else if(r34a_real(C)){
  3697. R=1;
  3698. }
  3699. /*FI]*/
  3700. return R;
  3701. }
  3702.  
  3703.  
  3704. T6 r34a_rename_pair(T34* C){
  3705. T6 R=0;
  3706. T2 _c=0;
  3707. T2 _l=0;
  3708. T0* _rename_pair=NULL;
  3709. T0* _name1=NULL;
  3710. _l=(/*RF2*/(C)->_line/*152*/);
  3711. _c=(/*RF2*/(C)->_column/*148*/);
  3712. /*[IF*/
  3713. if(r34a_feature_name(C)){
  3714. _name1=(/*RF2*/(C)->_last_feature_name/*80*/);
  3715. /*[IF*/
  3716. if(r34a_keyword(C,((T0*)ms14_424))){
  3717. /*[IF*/
  3718. if(r34a_feature_name(C)){
  3719. R=1;
  3720. {T87*n=((T87*)malloc(sizeof(*n))/*8*/);
  3721. *n=M87;
  3722. r87make(n,_name1,(/*RF2*/(C)->_last_feature_name/*80*/));
  3723. _rename_pair=((T0*)n);
  3724. }
  3725. r58add_rename((T58*)((/*RF2*/(C)->_last_parent/*124*/)),_rename_pair);
  3726. }
  3727. else{
  3728. r34fcp(C,((T0*)ms34_120520));
  3729. }
  3730. /*FI]*/
  3731. }
  3732. else{
  3733. r34go_back_at(C,_l,_c);
  3734. }
  3735. /*FI]*/
  3736. }
  3737. /*FI]*/
  3738. return R;
  3739. }
  3740.  
  3741.  
  3742. void r34a_r1(T34* C,T0* a1){
  3743. T68 _sp={NULL,0};
  3744. T0* _infix_implies=NULL;
  3745. /*[IF*/
  3746. if(r34a_keyword(C,((T0*)ms15_9408))){
  3747. {T68 se_tmp0;
  3748. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3749. }
  3750. /*[IF*/
  3751. if(r34a_e1(C)){
  3752. {T111*n=((T111*)malloc(sizeof(*n))/*24*/);
  3753. *n=M111;
  3754. r111make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3755. _infix_implies=((T0*)n);
  3756. }
  3757. r34a_r1(C,_infix_implies);
  3758. }
  3759. else{
  3760. r34error(_sp,((T0*)ms34_78192));
  3761. }
  3762. /*FI]*/
  3763. }
  3764. else{
  3765. (/*SFN*/C->_last_expression)=a1;
  3766. }
  3767. /*FI]*/
  3768. }
  3769.  
  3770.  
  3771. void r34a_r2(T34* C,T0* a1){
  3772. T68 _sp={NULL,0};
  3773. T0* _infix_xor=NULL;
  3774. T0* _infix_or=NULL;
  3775. T0* _infix_or_else=NULL;
  3776. /*[IF*/
  3777. if(r34a_keyword(C,((T0*)ms15_450))){
  3778. {T68 se_tmp0;
  3779. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3780. }
  3781. /*[IF*/
  3782. if(r34a_keyword(C,((T0*)ms14_1700))){
  3783. /*[IF*/
  3784. if(r34a_e2(C)){
  3785. {T119*n=((T119*)malloc(sizeof(*n))/*24*/);
  3786. *n=M119;
  3787. r119make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3788. _infix_or_else=((T0*)n);
  3789. }
  3790. r34a_r2(C,_infix_or_else);
  3791. }
  3792. else{
  3793. r34err_exp(_sp,((T0*)ms15_8211));
  3794. }
  3795. /*FI]*/
  3796. }
  3797. else{
  3798. /*[IF*/
  3799. if(r34a_e2(C)){
  3800. {T118*n=((T118*)malloc(sizeof(*n))/*24*/);
  3801. *n=M118;
  3802. r118make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3803. _infix_or=((T0*)n);
  3804. }
  3805. r34a_r2(C,_infix_or);
  3806. }
  3807. else{
  3808. r34err_exp(_sp,((T0*)ms15_450));
  3809. }
  3810. /*FI]*/
  3811. }
  3812. /*FI]*/
  3813. }
  3814.  else if(r34a_keyword(C,((T0*)ms15_1035a))){
  3815. {T68 se_tmp0;
  3816. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3817. }
  3818. /*[IF*/
  3819. if(r34a_e2(C)){
  3820. {T117*n=((T117*)malloc(sizeof(*n))/*24*/);
  3821. *n=M117;
  3822. r117make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3823. _infix_xor=((T0*)n);
  3824. }
  3825. r34a_r2(C,_infix_xor);
  3826. }
  3827. else{
  3828. r34err_exp(_sp,((T0*)ms15_1035a));
  3829. }
  3830. /*FI]*/
  3831. }
  3832. else{
  3833. (/*SFN*/C->_last_expression)=a1;
  3834. }
  3835. /*FI]*/
  3836. }
  3837.  
  3838.  
  3839. void r34a_r3(T34* C,T0* a1){
  3840. T68 _sp={NULL,0};
  3841. T0* _infix_and=NULL;
  3842. T0* _infix_and_then=NULL;
  3843. /*[IF*/
  3844. if(r34a_keyword(C,((T0*)ms15_921))){
  3845. {T68 se_tmp0;
  3846. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3847. }
  3848. /*[IF*/
  3849. if(r34a_keyword(C,((T0*)ms14_1724))){
  3850. /*[IF*/
  3851. if(r34a_e3(C)){
  3852. {T121*n=((T121*)malloc(sizeof(*n))/*24*/);
  3853. *n=M121;
  3854. r121make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3855. _infix_and_then=((T0*)n);
  3856. }
  3857. r34a_r3(C,_infix_and_then);
  3858. }
  3859. else{
  3860. r34err_exp(_sp,((T0*)ms15_10680));
  3861. }
  3862. /*FI]*/
  3863. }
  3864. else{
  3865. /*[IF*/
  3866. if(r34a_e3(C)){
  3867. {T120*n=((T120*)malloc(sizeof(*n))/*24*/);
  3868. *n=M120;
  3869. r120make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3870. _infix_and=((T0*)n);
  3871. }
  3872. r34a_r3(C,_infix_and);
  3873. }
  3874. else{
  3875. r34err_exp(_sp,((T0*)ms15_921));
  3876. }
  3877. /*FI]*/
  3878. }
  3879. /*FI]*/
  3880. }
  3881. else{
  3882. (/*SFN*/C->_last_expression)=a1;
  3883. }
  3884. /*FI]*/
  3885. }
  3886.  
  3887.  
  3888. void r34a_r4(T34* C,T0* a1){
  3889. T68 _sp={NULL,0};
  3890. T0* _call_infix=NULL;
  3891. /*[IF*/
  3892. if(r34skip1(C,((T3)'\75'))){
  3893. {T68 se_tmp0;
  3894. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3895. }
  3896. /*[IF*/
  3897. if(r34a_e4(C)){
  3898. {T187*n=((T187*)malloc(sizeof(*n))/*16*/);
  3899. *n=M187;
  3900. r187make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3901. _call_infix=((T0*)n);
  3902. }
  3903. r34a_r4(C,_call_infix);
  3904. }
  3905. else{
  3906. r34err_exp(_sp,((T0*)ms15_61));
  3907. }
  3908. /*FI]*/
  3909. }
  3910.  else if(r34skip2(C,((T3)'\57'),((T3)'\75'))){
  3911. {T68 se_tmp0;
  3912. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3913. }
  3914. /*[IF*/
  3915. if(r34a_e4(C)){
  3916. {T189*n=((T189*)malloc(sizeof(*n))/*16*/);
  3917. *n=M189;
  3918. r189make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3919. _call_infix=((T0*)n);
  3920. }
  3921. r34a_r4(C,_call_infix);
  3922. }
  3923. else{
  3924. r34err_exp(_sp,((T0*)ms15_216));
  3925. }
  3926. /*FI]*/
  3927. }
  3928.  else if(r34skip2(C,((T3)'\74'),((T3)'\75'))){
  3929. {T68 se_tmp0;
  3930. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3931. }
  3932. /*[IF*/
  3933. if(r34a_e4(C)){
  3934. {T190*n=((T190*)malloc(sizeof(*n))/*24*/);
  3935. *n=M190;
  3936. r190make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3937. _call_infix=((T0*)n);
  3938. }
  3939. r34a_r4(C,_call_infix);
  3940. }
  3941. else{
  3942. r34err_exp(_sp,((T0*)ms15_242));
  3943. }
  3944. /*FI]*/
  3945. }
  3946.  else if(r34skip2(C,((T3)'\76'),((T3)'\75'))){
  3947. {T68 se_tmp0;
  3948. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3949. }
  3950. /*[IF*/
  3951. if(r34a_e4(C)){
  3952. {T191*n=((T191*)malloc(sizeof(*n))/*24*/);
  3953. *n=M191;
  3954. r191make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3955. _call_infix=((T0*)n);
  3956. }
  3957. r34a_r4(C,_call_infix);
  3958. }
  3959. else{
  3960. r34err_exp(_sp,((T0*)ms15_246));
  3961. }
  3962. /*FI]*/
  3963. }
  3964.  else if(r34skip1(C,((T3)'\74'))){
  3965. {T68 se_tmp0;
  3966. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3967. }
  3968. /*[IF*/
  3969. if(r34a_e4(C)){
  3970. {T192*n=((T192*)malloc(sizeof(*n))/*24*/);
  3971. *n=M192;
  3972. r192make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3973. _call_infix=((T0*)n);
  3974. }
  3975. r34a_r4(C,_call_infix);
  3976. }
  3977. else{
  3978. r34err_exp(_sp,((T0*)ms15_60));
  3979. }
  3980. /*FI]*/
  3981. }
  3982.  else if(r34skip1unless2(C,((T3)'\76'),((T3)'\76'))){
  3983. {T68 se_tmp0;
  3984. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  3985. }
  3986. /*[IF*/
  3987. if(r34a_e4(C)){
  3988. {T193*n=((T193*)malloc(sizeof(*n))/*24*/);
  3989. *n=M193;
  3990. r193make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  3991. _call_infix=((T0*)n);
  3992. }
  3993. r34a_r4(C,_call_infix);
  3994. }
  3995. else{
  3996. r34err_exp(_sp,((T0*)ms15_62));
  3997. }
  3998. /*FI]*/
  3999. }
  4000. else{
  4001. (/*SFN*/C->_last_expression)=a1;
  4002. }
  4003. /*FI]*/
  4004. }
  4005.  
  4006.  
  4007. void r34a_r5(T34* C,T0* a1){
  4008. T68 _sp={NULL,0};
  4009. T0* _infix_minus=NULL;
  4010. T0* _infix_plus=NULL;
  4011. /*[IF*/
  4012. if(r34skip1(C,((T3)'\53'))){
  4013. {T68 se_tmp0;
  4014. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  4015. }
  4016. /*[IF*/
  4017. if(r34a_e5(C)){
  4018. {T123*n=((T123*)malloc(sizeof(*n))/*24*/);
  4019. *n=M123;
  4020. r123make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  4021. _infix_plus=((T0*)n);
  4022. }
  4023. r34a_r5(C,_infix_plus);
  4024. }
  4025. else{
  4026. r34err_exp(_sp,((T0*)ms15_43));
  4027. }
  4028. /*FI]*/
  4029. }
  4030.  else if(r34skip1(C,((T3)'\55'))){
  4031. {T68 se_tmp0;
  4032. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  4033. }
  4034. /*[IF*/
  4035. if(r34a_e5(C)){
  4036. {T122*n=((T122*)malloc(sizeof(*n))/*24*/);
  4037. *n=M122;
  4038. r122make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  4039. _infix_minus=((T0*)n);
  4040. }
  4041. r34a_r5(C,_infix_minus);
  4042. }
  4043. else{
  4044. r34err_exp(_sp,((T0*)ms15_45));
  4045. }
  4046. /*FI]*/
  4047. }
  4048. else{
  4049. (/*SFN*/C->_last_expression)=a1;
  4050. }
  4051. /*FI]*/
  4052. }
  4053.  
  4054.  
  4055. void r34a_r6(T34* C,T0* a1){
  4056. T68 _sp={NULL,0};
  4057. T0* _infix_div=NULL;
  4058. T0* _infix_int_rem=NULL;
  4059. T0* _infix_int_div=NULL;
  4060. T0* _infix_times=NULL;
  4061. /*[IF*/
  4062. if(r34skip1(C,((T3)'\52'))){
  4063. {T68 se_tmp0;
  4064. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  4065. }
  4066. /*[IF*/
  4067. if(r34a_e6(C)){
  4068. {T127*n=((T127*)malloc(sizeof(*n))/*24*/);
  4069. *n=M127;
  4070. r127make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  4071. _infix_times=((T0*)n);
  4072. }
  4073. r34a_r6(C,_infix_times);
  4074. }
  4075. else{
  4076. r34err_exp(_sp,((T0*)ms15_42));
  4077. }
  4078. /*FI]*/
  4079. }
  4080.  else if(r34skip2(C,((T3)'\57'),((T3)'\57'))){
  4081. {T68 se_tmp0;
  4082. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  4083. }
  4084. /*[IF*/
  4085. if(r34a_e6(C)){
  4086. {T126*n=((T126*)malloc(sizeof(*n))/*24*/);
  4087. *n=M126;
  4088. r126make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  4089. _infix_int_div=((T0*)n);
  4090. }
  4091. r34a_r6(C,_infix_int_div);
  4092. }
  4093. else{
  4094. r34err_exp(_sp,((T0*)ms15_188));
  4095. }
  4096. /*FI]*/
  4097. }
  4098.  else if(r34skip2(C,((T3)'\134'),((T3)'\134'))){
  4099. {T68 se_tmp0;
  4100. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  4101. }
  4102. /*[IF*/
  4103. if(r34a_e6(C)){
  4104. {T125*n=((T125*)malloc(sizeof(*n))/*24*/);
  4105. *n=M125;
  4106. r125make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  4107. _infix_int_rem=((T0*)n);
  4108. }
  4109. r34a_r6(C,_infix_int_rem);
  4110. }
  4111. else{
  4112. r34err_exp(_sp,((T0*)ms15_368));
  4113. }
  4114. /*FI]*/
  4115. }
  4116.  else if(r34skip1unless2(C,((T3)'\57'),((T3)'\75'))){
  4117. {T68 se_tmp0;
  4118. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  4119. }
  4120. /*[IF*/
  4121. if(r34a_e6(C)){
  4122. {T124*n=((T124*)malloc(sizeof(*n))/*24*/);
  4123. *n=M124;
  4124. r124make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  4125. _infix_div=((T0*)n);
  4126. }
  4127. r34a_r6(C,_infix_div);
  4128. }
  4129. else{
  4130. r34err_exp(_sp,((T0*)ms15_47));
  4131. }
  4132. /*FI]*/
  4133. }
  4134. else{
  4135. (/*SFN*/C->_last_expression)=a1;
  4136. }
  4137. /*FI]*/
  4138. }
  4139.  
  4140.  
  4141. void r34a_r7(T34* C,T0* a1){
  4142. T68 _sp={NULL,0};
  4143. /*[IF*/
  4144. if(r34skip1(C,((T3)'\136'))){
  4145. {T68 se_tmp0;
  4146. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  4147. }
  4148. /*[IF*/
  4149. if(r34a_e7(C)){
  4150. r34a_r7(C,(/*RF2*/(C)->_last_expression/*72*/));
  4151. {T186*n=((T186*)malloc(sizeof(*n))/*24*/);
  4152. *n=M186;
  4153. r186make(n,a1,_sp,(/*RF2*/(C)->_last_expression/*72*/));
  4154. (/*SFN*/C->_last_expression)=((T0*)n);
  4155. }
  4156. }
  4157. else{
  4158. r34err_exp(_sp,((T0*)ms15_94));
  4159. }
  4160. /*FI]*/
  4161. }
  4162. else{
  4163. (/*SFN*/C->_last_expression)=a1;
  4164. }
  4165. /*FI]*/
  4166. }
  4167.  
  4168.  
  4169. T0* r34last_result(T34* C){
  4170. T0* R=NULL;
  4171. T68 _sp={NULL,0};
  4172. _sp=(/*RF2*/((/*RF2*/(C)->_tmp_name/*24*/))._start_position/*0*/);
  4173. /*[IF*/
  4174. if((/*RF2*/(C)->_inside_function/*7*/)){
  4175. /*[IF*/
  4176. if((/*RF2*/(C)->_inside_once_function/*8*/)){
  4177. {T145*n=((T145*)malloc(sizeof(*n))/*16*/);
  4178. *n=M145;
  4179. /*[IRF3.3make*/((((T145*)(n)))->_start_position)=(_sp);
  4180. /*]*/
  4181. R=((T0*)n);
  4182. }
  4183. }
  4184. else{
  4185. {T146*n=((T146*)malloc(sizeof(*n))/*16*/);
  4186. *n=M146;
  4187. /*[IRF3.3make*/((((T146*)(n)))->_start_position)=(_sp);
  4188. /*]*/
  4189. R=((T0*)n);
  4190. }
  4191. }
  4192. /*FI]*/
  4193. }
  4194. else{
  4195. r66add_position(_sp);
  4196. r34fatal_error(((T0*)ms34_116145));
  4197. }
  4198. /*FI]*/
  4199. return R;
  4200. }
  4201.  
  4202.  
  4203. void r34a_r8(T34* C,T0* a1){
  4204. T0* _infix_freeop=NULL;
  4205. T0* _infix_name=NULL;
  4206. /*[IF*/
  4207. if(r34a_free_operator(C)){
  4208. _infix_name=r107to_infix_name_use(&((/*RF2*/(C)->_tmp_name/*24*/)));
  4209. /*[IF*/
  4210. if(r34a_e8(C)){
  4211. {T128*n=((T128*)malloc(sizeof(*n))/*24*/);
  4212. *n=M128;
  4213. r128make(n,a1,_infix_name,(/*RF2*/(C)->_last_expression/*72*/));
  4214. _infix_freeop=((T0*)n);
  4215. }
  4216. r34a_r8(C,_infix_freeop);
  4217. }
  4218. else{
  4219. r34err_exp((/*RF2*/(((T129*)_infix_name))->_start_position/*4*/),(/*RF2*/(((T129*)_infix_name))->_to_string/*12*/));
  4220. }
  4221. /*FI]*/
  4222. }
  4223. else{
  4224. (/*SFN*/C->_last_expression)=a1;
  4225. }
  4226. /*FI]*/
  4227. }
  4228.  
  4229.  
  4230. T0* r34a_alias(T34* C){
  4231. T0* R=NULL;
  4232. /*[IF*/
  4233. if(r34a_keyword(C,((T0*)ms14_2610))){
  4234. /*[IF*/
  4235. if(!(r34skip1(C,((T3)'\42')))){
  4236. r34fcp(C,((T0*)ms34_59648));
  4237. }
  4238. /*FI]*/
  4239. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4240. *n=M7;
  4241. r7make(n,24);
  4242. R=((T0*)n);
  4243. }
  4244. while (!(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\42'))))
  4245. {
  4246. r7extend(((T7*)R),(/*RF2*/(C)->_cc/*160*/));
  4247. r34next_char(C);
  4248. }
  4249. /*[IF*/
  4250. if(!(r34skip1(C,((T3)'\42')))){
  4251. r34fcp(C,((T0*)ms34_59648));
  4252. }
  4253. /*FI]*/
  4254. }
  4255. /*FI]*/
  4256. return R;
  4257. }
  4258.  
  4259.  
  4260. void r34a_feature_clause(T34* C){
  4261. T0* _comment=NULL;
  4262. T0* _clients=NULL;
  4263. T0* _feature_clause=NULL;
  4264. _clients=r34a_clients(C);
  4265. _comment=r34get_comments(C);
  4266. /*SSPRF3*//*X92clear*//*[IRF3.3clear*/((((T92*)((T92*)(oBC34faof))))->_upper)=(-(1));
  4267. /*]*/
  4268. while (!(!(r34a_feature_declaration(C))))
  4269. {
  4270. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  4271. /*[IF*/
  4272. if(((/*RF2*/(C)->_last_feature_declaration/*76*/))!=((void*)(NULL))){
  4273. X92add_last(oBC34faof,(/*RF2*/(C)->_last_feature_declaration/*76*/));
  4274. X90set_header_comment((/*RF2*/(C)->_last_feature_declaration/*76*/),r34get_comments(C));
  4275. }
  4276. /*FI]*/
  4277. }
  4278. /*[IF*/
  4279. if(!(/*SSFRF4*//*X92is_empty*/r92is_empty((T92*)(oBC34faof)))){
  4280. {T96*n=((T96*)malloc(sizeof(*n))/*12*/);
  4281. *n=M96;
  4282. r96make(n,_clients,_comment,X92twin(oBC34faof));
  4283. _feature_clause=((T0*)n);
  4284. }
  4285. r51add_feature_clause((T51*)((/*RF2*/(C)->_last_base_class/*40*/)),_feature_clause);
  4286. }
  4287.  else if((_comment)!=((void*)(NULL))){
  4288. {T96*n=((T96*)malloc(sizeof(*n))/*12*/);
  4289. *n=M96;
  4290. r96make(n,_clients,_comment,NULL);
  4291. _feature_clause=((T0*)n);
  4292. }
  4293. r51add_feature_clause((T51*)((/*RF2*/(C)->_last_base_class/*40*/)),_feature_clause);
  4294. }
  4295. /*FI]*/
  4296. (/*SFN*/C->_last_keyword)=NULL;
  4297. }
  4298.  
  4299.  
  4300. void r34err_exp(T68 a1,T0* a2){
  4301. T0* _msg=NULL;
  4302. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4303. *n=M7;
  4304. r7make(n,0);
  4305. _msg=((T0*)n);
  4306. }
  4307. r7append(((T7*)_msg),((T0*)ms34_48484));
  4308. r7append(((T7*)_msg),a2);
  4309. r7append(((T7*)_msg),((T0*)ms34_9955));
  4310. r66add_position(a1);
  4311. r34fatal_error(_msg);
  4312. }
  4313.  
  4314.  
  4315. void r34a_class_declaration(T34* C){
  4316. T6 _drop_comments_save=0;
  4317. T0* _al=NULL;
  4318. T0* _hc=NULL;
  4319. T68 _sp={NULL,0};
  4320. r34a_indexing(C);
  4321. /*[IF*/
  4322. if(r34a_keyword(C,((T0*)ms14_10544))){
  4323. r51set_is_deferred((T51*)((/*RF2*/(C)->_last_base_class/*40*/)));
  4324. }
  4325. /*FI]*/
  4326. /*[IF*/
  4327. if(r34a_keyword(C,((T0*)ms14_10720))){
  4328. r51set_is_expanded((T51*)((/*RF2*/(C)->_last_base_class/*40*/)));
  4329. /*[IF*/
  4330. if(r34a_keyword(C,((T0*)ms14_10544))){
  4331. r51set_is_deferred((T51*)((/*RF2*/(C)->_last_base_class/*40*/)));
  4332. }
  4333. /*FI]*/
  4334. }
  4335. /*FI]*/
  4336. /*[IRF3.3set_heading_comment1*/((((T51*)((T51*)((/*RF2*/(C)->_last_base_class/*40*/)))))->_heading_comment1)=(r34get_comments(C));
  4337. /*]*/
  4338. /*[IF*/
  4339. if(!(r34a_keyword(C,((T0*)ms14_2670)))){
  4340. r34fcp(C,((T0*)ms34_41925));
  4341. }
  4342. /*FI]*/
  4343. r34a_base_class_name1(C);
  4344. r34a_formal_generic_list(C);
  4345. /*[IF*/
  4346. if(r34a_keyword(C,((T0*)ms14_10808))){
  4347. /*[IF*/
  4348. if(r34a_manifest_string(C)){
  4349. r51set_obsolete_type_string((T51*)((/*RF2*/(C)->_last_base_class/*40*/)),(/*RF2*/(C)->_last_manifest_string/*120*/));
  4350. }
  4351. else{
  4352. r34fcp(C,((T0*)ms34_124691));
  4353. }
  4354. /*FI]*/
  4355. }
  4356. /*FI]*/
  4357. /*[IRF3.3set_heading_comment2*/((((T51*)((T51*)((/*RF2*/(C)->_last_base_class/*40*/)))))->_heading_comment2)=(r34get_comments(C));
  4358. /*]*/
  4359. /*[IF*/
  4360. if(r34a_keyword(C,((T0*)ms14_9422))){
  4361. {T68 se_tmp0;
  4362. r34a_parent_list(C,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)),r34get_comments(C));
  4363. }
  4364. }
  4365. /*FI]*/
  4366. while (!(!((r34a_keyword(C,((T0*)ms14_11256)))||(r34a_keyword(C,((T0*)ms14_6798))))))
  4367. {
  4368. {T68 se_tmp0;
  4369. r34a_creation_clause(C,(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0)));
  4370. }
  4371. }
  4372. while (!(!(r34a_keyword(C,((T0*)ms14_8680)))))
  4373. {
  4374. r34a_feature_clause(C);
  4375. }
  4376. _drop_comments_save=(/*RF2*/(C)->_drop_comments/*189*/);
  4377. (/*SFN*/C->_drop_comments)=0;
  4378. /*[IF*/
  4379. if(r34a_keyword(C,((T0*)ms14_14292))){
  4380. {T68 se_tmp0;
  4381. _sp=(*(se_tmp0=r34pos(C,(/*RF2*/(C)->_start_line/*144*/),(/*RF2*/(C)->_start_column/*140*/)),&se_tmp0));
  4382. }
  4383. _hc=r34get_comments(C);
  4384. _al=r34a_assertion(C);
  4385. r51set_invariant((T51*)((/*RF2*/(C)->_last_base_class/*40*/)),_sp,_hc,_al);
  4386. }
  4387. /*FI]*/
  4388. /*[IF*/
  4389. if((r34a_keyword(C,((T0*)ms14_933)))||(((/*RF2*/(C)->_last_keyword/*88*/))==((void*)(((T0*)ms14_933))))){
  4390. /*[IF*/
  4391. if(((/*RF2*/(C)->_cc/*160*/))==(((T3)'\73'))){
  4392. /*[IRF3.6wcp*/{T34* C1=C;
  4393. T0* b1=((T0*)ms14_41100);
  4394. {T68 se_tmp0;
  4395. r34warning((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  4396. }
  4397. }/*]*/
  4398. (/*SFN*/C->_ok)=r34skip1(C,((T3)'\73'));
  4399. }
  4400. /*FI]*/
  4401. /*[IRF3.3set_end_comment*/((((T51*)((T51*)((/*RF2*/(C)->_last_base_class/*40*/)))))->_end_comment)=(r34get_comments(C));
  4402. /*]*/
  4403. /*[IF*/
  4404. if(((/*RF2*/(C)->_cc/*160*/))!=(((T3)'\0'))){
  4405. r34fcp(C,((T0*)ms34_29148));
  4406. }
  4407. /*FI]*/
  4408. }
  4409. else{
  4410. r34fcp(C,((T0*)ms34_116865));
  4411. }
  4412. /*FI]*/
  4413. (/*SFN*/C->_drop_comments)=_drop_comments_save;
  4414. }
  4415. T11*eiffel_root_object=NULL;
  4416. int se_argc;
  4417. char**se_argv;
  4418.  
  4419.  
  4420. void initialize_eiffel_runtime(int argc,char*argv[]){
  4421. se_argc=argc;
  4422. se_argv=argv;
  4423. #ifdef SIGINT
  4424. signal(SIGINT,sigrsp);
  4425. #endif
  4426. #ifdef SIGQUIT
  4427. signal(SIGQUIT,sigrsp);
  4428. #endif
  4429. #ifdef SIGTERM
  4430. signal(SIGTERM,sigrsp);
  4431. #endif
  4432. #ifdef SIGBREAK
  4433. signal(SIGBREAK,sigrsp);
  4434. #endif
  4435. #ifdef SIGKILL
  4436. signal(SIGKILL,sigrsp);
  4437. #endif
  4438. se_msi1();
  4439. /*PCO*/
  4440. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4441. *n=M7;
  4442. oBC292tmp_string=((T0*)n);
  4443. r7make(n,32);
  4444. }
  4445. /*PCO*/
  4446. {T344*n=((T344*)malloc(sizeof(*n))/*3*/);
  4447. *n=M344;
  4448. oBC13gc_handler=((T0*)n);
  4449. /*[IRF3.1make*//*]*/
  4450. }
  4451. /*PCO*/
  4452. {T47*n=((T47*)malloc(sizeof(*n))/*25*/);
  4453. *n=M47;
  4454. oBC13run_control=((T0*)n);
  4455. /*[IRF3.1make*//*]*/
  4456. }
  4457. /*PCO*/
  4458. {T66*n=((T66*)malloc(sizeof(*n))/*9*/);
  4459. *n=M66;
  4460. oBC13eh=((T0*)n);
  4461. }
  4462. /*PCO*/
  4463. {T363*n=((T363*)malloc(1));
  4464. oBC13once_routine_pool=((T0*)n);
  4465. }
  4466. /*PCO*/
  4467. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4468. *n=M7;
  4469. oBC13c_frame_descriptor_locals=((T0*)n);
  4470. r7make(n,512);
  4471. }
  4472. /*PCO*/
  4473. {T203*n=((T203*)malloc(sizeof(*n))/*4*/);
  4474. *n=M203;
  4475. oBC13c_frame_descriptor_local_count=((T0*)n);
  4476. }
  4477. /*PCO*/
  4478. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4479. *n=M7;
  4480. oBC13c_frame_descriptor_format=((T0*)n);
  4481. r7make(n,512);
  4482. }
  4483. /*PCO*/
  4484. {T325*n=((T325*)malloc(sizeof(*n))/*95*/);
  4485. *n=M325;
  4486. oBC13cpp=((T0*)n);
  4487. }
  4488. /*PCO*/
  4489. {T31*n=((T31*)malloc(sizeof(*n))/*16*/);
  4490. *n=M31;
  4491. oBC325c_inline_h_mem=((T0*)n);
  4492. r31with_capacity(n,4);
  4493. }
  4494. /*PCO*/
  4495. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4496. *n=M7;
  4497. oBC288body=((T0*)n);
  4498. r7make(n,1024);
  4499. }
  4500. /*PCO*/
  4501. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4502. *n=M7;
  4503. oBC396tmp_string=((T0*)n);
  4504. r7make(n,8);
  4505. }
  4506. /*PCO*/
  4507. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4508. *n=M7;
  4509. oBC334c_code=((T0*)n);
  4510. r7make(n,512);
  4511. }
  4512. /*PCO*/
  4513. {T338*n=((T338*)malloc(sizeof(*n))/*12*/);
  4514. *n=M338;
  4515. oBC13cecil_pool=((T0*)n);
  4516. }
  4517. /*PCO*/
  4518. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4519. *n=M7;
  4520. oBC363buffer2=((T0*)n);
  4521. r7make(n,64);
  4522. }
  4523. /*PCO*/
  4524. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4525. *n=M7;
  4526. oBC363buffer=((T0*)n);
  4527. r7make(n,64);
  4528. }
  4529. /*PCO*/
  4530. {T341*n=((T341*)malloc(sizeof(*n))/*12*/);
  4531. *n=M341;
  4532. oBC13conversion_handler=((T0*)n);
  4533. }
  4534. /*PCO*/
  4535. {T49*n=((T49*)malloc(sizeof(*n))/*15*/);
  4536. *n=M49;
  4537. oBC13small_eiffel=((T0*)n);
  4538. /*[IRF3.1make*//*]*/
  4539. }
  4540. /*PCO*/
  4541. {T380*n=((T380*)malloc(sizeof(*n))/*1*/);
  4542. *n=M380;
  4543. oBC13exceptions_handler=((T0*)n);
  4544. /*[IRF3.1make*//*]*/
  4545. }
  4546. /*PCO*/
  4547. {T366*n=((T366*)malloc(1));
  4548. oBC13manifest_string_pool=((T0*)n);
  4549. }
  4550. /*PCO*/
  4551. {T369*n=((T369*)malloc(1));
  4552. oBC13address_of_pool=((T0*)n);
  4553. }
  4554. /*PCO*/
  4555. oBC363frozen_general=se_ma44(4,
  4556. ((T0*)ms15_13977),
  4557. ((T0*)ms15_14175),
  4558. ((T0*)ms15_432),
  4559. ((T0*)ms15_16970));
  4560. /*PCO*/
  4561. {T361*n=((T361*)malloc(1));
  4562. oBC13manifest_array_pool=((T0*)n);
  4563. }
  4564. /*PCO*/
  4565. /*PCO*/
  4566. {T400*n=((T400*)malloc(sizeof(*n))/*4*/);
  4567. *n=M400;
  4568. oBC185vaol_check_memory=((T0*)n);
  4569. }
  4570. /*PCO*/
  4571. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4572. *n=M7;
  4573. oBC185tmp_string=((T0*)n);
  4574. r7make(n,12);
  4575. }
  4576. /*PCO*/
  4577. {T374*n=((T374*)malloc(sizeof(*n))/*16*/);
  4578. *n=M374;
  4579. oBC139isa_dca_inline_memory=((T0*)n);
  4580. r374make(n,1,2);
  4581. }
  4582. /*PCO*/
  4583. {T383*n=((T383*)malloc(sizeof(*n))/*5*/);
  4584. *n=M383;
  4585. oBC13assertion_collector=((T0*)n);
  4586. /*[IRF3.1make*//*]*/
  4587. }
  4588. /*PCO*/
  4589. {T349*n=((T349*)malloc(sizeof(*n))/*16*/);
  4590. *n=M349;
  4591. oBC363procedure_list=((T0*)n);
  4592. r349with_capacity(n,32);
  4593. }
  4594. /*PCO*/
  4595. {T391*n=((T391*)malloc(sizeof(*n))/*16*/);
  4596. *n=M391;
  4597. oBC50wa_cycle=((T0*)n);
  4598. r391with_capacity(n,24);
  4599. }
  4600. /*PCO*/
  4601. {T391*n=((T391*)malloc(sizeof(*n))/*16*/);
  4602. *n=M391;
  4603. oBC50wa_cyclic_buf=((T0*)n);
  4604. r391with_capacity(n,24);
  4605. }
  4606. /*PCO*/
  4607. {T391*n=((T391*)malloc(sizeof(*n))/*16*/);
  4608. *n=M391;
  4609. oBC50wa_buf=((T0*)n);
  4610. r391with_capacity(n,24);
  4611. }
  4612. /*PCO*/
  4613. {T64*n=((T64*)malloc(sizeof(*n))/*12*/);
  4614. *n=M64;
  4615. oBC272check_memory=((T0*)n);
  4616. r64with_capacity(n,16);
  4617. }
  4618. /*PCO*/
  4619. {T67*n=((T67*)malloc(sizeof(*n))/*12*/);
  4620. *n=M67;
  4621. oBC255visited=((T0*)n);
  4622. r67with_capacity(n,4);
  4623. }
  4624. /*PCO*/
  4625. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4626. *n=M7;
  4627. oBC50tmp_string=((T0*)n);
  4628. r7make(n,32);
  4629. }
  4630. /*PCO*/
  4631. oBC43compiler_list=se_ma44(11,
  4632. ((T0*)ms43_903),
  4633. ((T0*)ms43_8280),
  4634. ((T0*)ms43_396),
  4635. ((T0*)ms43_4542),
  4636. ((T0*)ms43_1985),
  4637. ((T0*)ms43_6162),
  4638. ((T0*)ms43_414),
  4639. ((T0*)ms43_428),
  4640. ((T0*)ms43_1620),
  4641. ((T0*)ms43_1656),
  4642. ((T0*)ms43_891));
  4643. /*PCO*/
  4644. {T36*n=((T36*)malloc(1));
  4645. oBC1std_output=((T0*)n);
  4646. /*[IRF3.1make*//*]*/
  4647. }
  4648. /*PCO*/
  4649. {T34*n=((T34*)malloc(sizeof(*n))/*194*/);
  4650. *n=M34;
  4651. oBC13eiffel_parser=((T0*)n);
  4652. }
  4653. /*PCO*/
  4654. {T35*n=((T35*)malloc(sizeof(*n))/*1*/);
  4655. *n=M35;
  4656. oBC13echo=((T0*)n);
  4657. /*[IRF3.1make*//*]*/
  4658. }
  4659. /*PCO*/
  4660. {T385*n=((T385*)malloc(sizeof(*n))/*16*/);
  4661. *n=M385;
  4662. oBC49rf9_memory=((T0*)n);
  4663. r385with_capacity(n,1024);
  4664. }
  4665. /*PCO*/
  4666. {T384*n=((T384*)malloc(sizeof(*n))/*40*/);
  4667. *n=M384;
  4668. oBC341expressions=((T0*)n);
  4669. r384make(n);
  4670. }
  4671. /*PCO*/
  4672. {T379*n=((T379*)malloc(sizeof(*n))/*20*/);
  4673. *n=M379;
  4674. oBC49stack_rf=((T0*)n);
  4675. r379make(n,1,50);
  4676. }
  4677. /*PCO*/
  4678. {T101*n=((T101*)malloc(sizeof(*n))/*16*/);
  4679. *n=M101;
  4680. oBC383collector=((T0*)n);
  4681. r101make(n,1,12);
  4682. }
  4683. /*PCO*/
  4684. {T31*n=((T31*)malloc(sizeof(*n))/*16*/);
  4685. *n=M31;
  4686. oBC49basic_sys_runtime=((T0*)n);
  4687. r31with_capacity(n,12);
  4688. }
  4689. /*PCO*/
  4690. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4691. *n=M7;
  4692. oBC102c_code=((T0*)n);
  4693. r7make(n,128);
  4694. }
  4695. /*PCO*/
  4696. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4697. *n=M7;
  4698. oBC338tmp_string=((T0*)n);
  4699. r7make(n,256);
  4700. }
  4701. /*PCO*/
  4702. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4703. *n=M7;
  4704. oBC49c_code=((T0*)n);
  4705. r7make(n,128);
  4706. }
  4707. /*PCO*/
  4708. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4709. *n=M7;
  4710. oBC366body=((T0*)n);
  4711. r7make(n,2048);
  4712. }
  4713. /*PCO*/
  4714. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4715. *n=M7;
  4716. oBC368tmp_string=((T0*)n);
  4717. r7make(n,32);
  4718. }
  4719. /*PCO*/
  4720. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4721. *n=M7;
  4722. oBC178tmp_string=((T0*)n);
  4723. r7make(n,32);
  4724. }
  4725. /*PCO*/
  4726. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4727. *n=M7;
  4728. oBC172tmp_string=((T0*)n);
  4729. r7make(n,256);
  4730. }
  4731. /*PCO*/
  4732. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4733. *n=M7;
  4734. oBC2tmp_string=((T0*)n);
  4735. r7make(n,128);
  4736. }
  4737. /*PCO*/
  4738. {T372*n=((T372*)malloc(sizeof(*n))/*16*/);
  4739. *n=M372;
  4740. oBC49registered_for_c_define=((T0*)n);
  4741. r372with_capacity(n,512);
  4742. }
  4743. /*PCO*/
  4744. {T370*n=((T370*)malloc(sizeof(*n))/*16*/);
  4745. *n=M370;
  4746. oBC369caller_memory=((T0*)n);
  4747. r370with_capacity(n,64);
  4748. }
  4749. /*PCO*/
  4750. {T349*n=((T349*)malloc(sizeof(*n))/*16*/);
  4751. *n=M349;
  4752. oBC369registered=((T0*)n);
  4753. r349with_capacity(n,64);
  4754. }
  4755. /*PCO*/
  4756. {T367*n=((T367*)malloc(sizeof(*n))/*44*/);
  4757. *n=M367;
  4758. oBC366mangling_dictionary=((T0*)n);
  4759. r367with_capacity(n,4096);
  4760. }
  4761. /*PCO*/
  4762. {T349*n=((T349*)malloc(sizeof(*n))/*16*/);
  4763. *n=M349;
  4764. oBC363function_list=((T0*)n);
  4765. r349with_capacity(n,32);
  4766. }
  4767. /*PCO*/
  4768. {T56*n=((T56*)malloc(sizeof(*n))/*12*/);
  4769. *n=M56;
  4770. oBC344run_class_list=((T0*)n);
  4771. r56with_capacity(n,32);
  4772. }
  4773. /*PCO*/
  4774. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4775. *n=M7;
  4776. oBC344header=((T0*)n);
  4777. r7make(n,64);
  4778. }
  4779. /*PCO*/
  4780. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4781. *n=M7;
  4782. oBC361header=((T0*)n);
  4783. r7make(n,64);
  4784. }
  4785. /*PCO*/
  4786. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4787. *n=M7;
  4788. oBC361body=((T0*)n);
  4789. r7make(n,1024);
  4790. }
  4791. /*PCO*/
  4792. {T362*n=((T362*)malloc(sizeof(*n))/*40*/);
  4793. *n=M362;
  4794. oBC361manifest_array_types=((T0*)n);
  4795. /*[IRF3.4make*/r362with_capacity(n,32);
  4796. /*]*/
  4797. }
  4798. /*PCO*/
  4799. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4800. *n=M7;
  4801. oBC352c_code=((T0*)n);
  4802. r7make(n,256);
  4803. }
  4804. /*PCO*/
  4805. {T360*n=((T360*)malloc(sizeof(*n))/*12*/);
  4806. *n=M360;
  4807. oBC51going_up_trace=((T0*)n);
  4808. r360with_capacity(n,8);
  4809. }
  4810. /*PCO*/
  4811. {T141*n=((T141*)malloc(sizeof(*n))/*16*/);
  4812. *n=M141;
  4813. oBC326stack_target=((T0*)n);
  4814. r141make(n,12);
  4815. }
  4816. /*PCO*/
  4817. {T358*n=((T358*)malloc(sizeof(*n))/*12*/);
  4818. *n=M358;
  4819. oBC326stack_args=((T0*)n);
  4820. r358make(n,12);
  4821. }
  4822. /*PCO*/
  4823. {T356*n=((T356*)malloc(sizeof(*n))/*12*/);
  4824. *n=M356;
  4825. oBC326stack_cpc=((T0*)n);
  4826. r356make(n,12);
  4827. }
  4828. /*PCO*/
  4829. {T349*n=((T349*)malloc(sizeof(*n))/*16*/);
  4830. *n=M349;
  4831. oBC326stack_rf=((T0*)n);
  4832. r349make(n,12);
  4833. }
  4834. /*PCO*/
  4835. {T349*n=((T349*)malloc(sizeof(*n))/*16*/);
  4836. *n=M349;
  4837. oBC326stack_static_rf=((T0*)n);
  4838. r349make(n,12);
  4839. }
  4840. /*PCO*/
  4841. {T349*n=((T349*)malloc(sizeof(*n))/*16*/);
  4842. *n=M349;
  4843. oBC325se_tmp_list=((T0*)n);
  4844. r349with_capacity(n,4);
  4845. }
  4846. /*PCO*/
  4847. {T53*n=((T53*)malloc(sizeof(*n))/*16*/);
  4848. *n=M53;
  4849. oBC352running=((T0*)n);
  4850. r53with_capacity(n,256,1);
  4851. }
  4852. /*PCO*/
  4853. {T353*n=((T353*)malloc(sizeof(*n))/*40*/);
  4854. *n=M353;
  4855. oBC351dictionary=((T0*)n);
  4856. r353with_capacity(n,1024);
  4857. }
  4858. /*PCO*/
  4859. {T342*n=((T342*)malloc(sizeof(*n))/*40*/);
  4860. *n=M342;
  4861. oBC341destination_types=((T0*)n);
  4862. /*[IRF3.4make*/r342with_capacity(n,32);
  4863. /*]*/
  4864. }
  4865. /*PCO*/
  4866. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4867. *n=M7;
  4868. oBC344body=((T0*)n);
  4869. r7make(n,512);
  4870. }
  4871. /*PCO*/
  4872. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4873. *n=M7;
  4874. oBC341buffer=((T0*)n);
  4875. r7make(n,128);
  4876. }
  4877. /*PCO*/
  4878. {T342*n=((T342*)malloc(sizeof(*n))/*40*/);
  4879. *n=M342;
  4880. oBC341source_types=((T0*)n);
  4881. /*[IRF3.4make*/r342with_capacity(n,32);
  4882. /*]*/
  4883. }
  4884. /*PCO*/
  4885. {T27*n=((T27*)malloc(sizeof(*n))/*12*/);
  4886. *n=M27;
  4887. oBC326stack_code=((T0*)n);
  4888. r27make(n,12);
  4889. }
  4890. /*PCO*/
  4891. {T40*n=((T40*)malloc(sizeof(*n))/*13*/);
  4892. *n=M40;
  4893. oBC13tmp_file_read=((T0*)n);
  4894. /*[IRF3.1make*//*]*/
  4895. }
  4896. /*PCO*/
  4897. {T31*n=((T31*)malloc(sizeof(*n))/*16*/);
  4898. *n=M31;
  4899. oBC301include_memory=((T0*)n);
  4900. r31with_capacity(n,4);
  4901. }
  4902. /*PCO*/
  4903. {T335*n=((T335*)malloc(sizeof(*n))/*16*/);
  4904. *n=M335;
  4905. oBC301external_routine_memory=((T0*)n);
  4906. r335with_capacity(n,4);
  4907. }
  4908. /*PCO*/
  4909. {T48*n=((T48*)malloc(sizeof(*n))/*8*/);
  4910. *n=M48;
  4911. oBC325out_c=((T0*)n);
  4912. /*[IRF3.1make*//*]*/
  4913. }
  4914. /*PCO*/
  4915. /*PCO*/
  4916. {T40*n=((T40*)malloc(sizeof(*n))/*13*/);
  4917. *n=M40;
  4918. oBC328std_fr2=((T0*)n);
  4919. /*[IRF3.1make*//*]*/
  4920. }
  4921. /*PCO*/
  4922. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4923. *n=M7;
  4924. oBC13tmp_path=((T0*)n);
  4925. r7make(n,512);
  4926. }
  4927. /*PCO*/
  4928. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4929. *n=M7;
  4930. oBC325tmp_string2=((T0*)n);
  4931. r7make(n,128);
  4932. }
  4933. /*PCO*/
  4934. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4935. *n=M7;
  4936. oBC7tmp_string=((T0*)n);
  4937. r7make(n,256);
  4938. }
  4939. /*PCO*/
  4940. {T44*n=((T44*)malloc(sizeof(*n))/*20*/);
  4941. *n=M44;
  4942. oBC7split_buffer=((T0*)n);
  4943. r44with_capacity(n,4,1);
  4944. }
  4945. /*PCO*/
  4946. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4947. *n=M7;
  4948. oBC325tmp_string=((T0*)n);
  4949. r7make(n,256);
  4950. }
  4951. /*PCO*/
  4952. {T48*n=((T48*)malloc(sizeof(*n))/*8*/);
  4953. *n=M48;
  4954. oBC325out_make=((T0*)n);
  4955. /*[IRF3.1make*//*]*/
  4956. }
  4957. /*PCO*/
  4958. {T40*n=((T40*)malloc(sizeof(*n))/*13*/);
  4959. *n=M40;
  4960. oBC328std_fr1=((T0*)n);
  4961. /*[IRF3.1make*//*]*/
  4962. }
  4963. /*PCO*/
  4964. oBC34forbidden_class=se_ma44(1,
  4965. ((T0*)ms15_1216));
  4966. /*PCO*/
  4967. oBC58forbidden_parent_list=se_ma44(9,
  4968. ((T0*)ms15_1216),
  4969. ((T0*)ms15_6405),
  4970. ((T0*)ms15_6643),
  4971. ((T0*)ms15_9801),
  4972. ((T0*)ms15_1168),
  4973. ((T0*)ms15_4728),
  4974. ((T0*)ms15_669),
  4975. ((T0*)ms15_6776),
  4976. ((T0*)ms15_17448));
  4977. /*PCO*/
  4978. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4979. *n=M7;
  4980. oBC273tmp_mark=((T0*)n);
  4981. r7make(n,16);
  4982. }
  4983. /*PCO*/
  4984. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4985. *n=M7;
  4986. oBC260tmp_written_mark=((T0*)n);
  4987. r7make(n,128);
  4988. }
  4989. /*PCO*/
  4990. {T203*n=((T203*)malloc(sizeof(*n))/*4*/);
  4991. *n=M203;
  4992. oBC198counter=((T0*)n);
  4993. }
  4994. /*PCO*/
  4995. {T84*n=((T84*)malloc(sizeof(*n))/*12*/);
  4996. *n=M84;
  4997. oBC197names=((T0*)n);
  4998. r84make(n,8);
  4999. }
  5000. /*PCO*/
  5001. {T92*n=((T92*)malloc(sizeof(*n))/*16*/);
  5002. *n=M92;
  5003. oBC34faof=((T0*)n);
  5004. r92with_capacity(n,256);
  5005. }
  5006. /*PCO*/
  5007. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  5008. *n=M7;
  5009. oBC34tmp_string=((T0*)n);
  5010. r7make(n,80);
  5011. }
  5012. /*PCO*/
  5013. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  5014. *n=M7;
  5015. oBC34lcs=((T0*)n);
  5016. r7make(n,80);
  5017. }
  5018. /*PCO*/
  5019. {T76*n=((T76*)malloc(sizeof(*n))/*8*/);
  5020. *n=M76;
  5021. oBC13parser_buffer=((T0*)n);
  5022. /*[IRF3.1make*//*]*/
  5023. }
  5024. /*PCO*/
  5025. {T64*n=((T64*)malloc(sizeof(*n))/*12*/);
  5026. *n=M64;
  5027. oBC51visited=((T0*)n);
  5028. r64with_capacity(n,32);
  5029. }
  5030. /*PCO*/
  5031. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  5032. *n=M7;
  5033. oBC49tmp_tail=((T0*)n);
  5034. r7make(n,128);
  5035. }
  5036. /*PCO*/
  5037. {T31*n=((T31*)malloc(sizeof(*n))/*16*/);
  5038. *n=M31;
  5039. oBC76text=((T0*)n);
  5040. r31with_capacity(n,4096);
  5041. }
  5042. /*PCO*/
  5043. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  5044. *n=M7;
  5045. oBC49parser_buffer_path=((T0*)n);
  5046. r7make(n,256);
  5047. }
  5048. /*PCO*/
  5049. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  5050. *n=M7;
  5051. oBC37tmp_string=((T0*)n);
  5052. r7make(n,512);
  5053. }
  5054. /*PCO*/
  5055. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  5056. *n=M7;
  5057. oBC66explanation=((T0*)n);
  5058. r7make(n,1024);
  5059. }
  5060. /*PCO*/
  5061. {T67*n=((T67*)malloc(sizeof(*n))/*12*/);
  5062. *n=M67;
  5063. oBC66positions=((T0*)n);
  5064. r67with_capacity(n,8);
  5065. }
  5066. /*PCO*/
  5067. {T63*n=((T63*)malloc(sizeof(*n))/*40*/);
  5068. *n=M63;
  5069. oBC49base_class_dictionary=((T0*)n);
  5070. r63with_capacity(n,2048);
  5071. }
  5072. /*PCO*/
  5073. {T55*n=((T55*)malloc(sizeof(*n))/*40*/);
  5074. *n=M55;
  5075. oBC49run_class_dictionary=((T0*)n);
  5076. r55with_capacity(n,2048);
  5077. }
  5078. /*PCO*/
  5079. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  5080. *n=M7;
  5081. oBC41last_string=((T0*)n);
  5082. r7make(n,1024);
  5083. }
  5084. /*PCO*/
  5085. {T46*n=((T46*)malloc(1));
  5086. oBC1std_error=((T0*)n);
  5087. /*[IRF3.1make*//*]*/
  5088. }
  5089. /*PCO*/
  5090. oBC43system_list=se_ma44(8,
  5091. ((T0*)ms43_2395),
  5092. ((T0*)ms43_1316),
  5093. ((T0*)ms43_690),
  5094. ((T0*)ms43_12816),
  5095. ((T0*)ms43_636),
  5096. ((T0*)ms43_1296),
  5097. ((T0*)ms43_738),
  5098. ((T0*)ms43_9226));
  5099. /*PCO*/
  5100. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  5101. *n=M7;
  5102. oBC39temporary_type_name=((T0*)n);
  5103. r7make(n,128);
  5104. }
  5105. /*PCO*/
  5106. {T42*n=((T42*)malloc(sizeof(*n))/*40*/);
  5107. *n=M42;
  5108. oBC39id_memory=((T0*)n);
  5109. r42with_capacity(n,2048);
  5110. }
  5111. /*PCO*/
  5112. {T23*n=((T23*)malloc(sizeof(*n))/*36*/);
  5113. *n=M23;
  5114. oBC21memory=((T0*)n);
  5115. r23with_capacity(n,16384);
  5116. }
  5117. /*PCO*/
  5118. eiffel_root_object=((T11*)malloc(sizeof(*eiffel_root_object))/*4*/);
  5119. *eiffel_root_object=M11;
  5120. }
  5121. int main(int argc,char*argv[]){
  5122. initialize_eiffel_runtime(argc,argv);
  5123. {T11*n=eiffel_root_object;
  5124. r11make(n);
  5125. }
  5126. exit(0);
  5127. return 0;}
  5128. T7*ms325_135096;
  5129. T7*ms344_107256;
  5130. T7*ms282_168036;
  5131. T7*ms292_106656;
  5132. T7*ms292_131666;
  5133. T7*ms284_124456;
  5134. T7*ms301_165557;
  5135. T7*ms386_110836;
  5136. T7*ms52_1694883;
  5137. T7*ms167_268167;
  5138. T7*ms102_112468;
  5139. T7*ms380_108468;
  5140. T7*ms174_106468;
  5141. T7*ms43_0aaaaaaaa;
  5142. T7*ms292_185088;
  5143. T7*ms166_366828;
  5144. T7*ms338_103068;
  5145. T7*ms395_320658;
  5146. T7*ms197_147108;
  5147. T7*ms288_129648;
  5148. T7*ms334_203069;
  5149. T7*ms344_120379;
  5150. T7*ms197_185909;
  5151. T7*ms52_3073536;
  5152. T7*ms388_106339;
  5153. T7*ms262_1208610;
  5154. T7*ms52_1591218;
  5155. T7*ms232_242a;
  5156. T7*ms325_492a;
  5157. T7*ms344_492a;
  5158. T7*ms292_820a;
  5159. T7*ms292_170a;
  5160. T7*ms292_264a;
  5161. T7*ms292_824a;
  5162. T7*ms292_202a;
  5163. T7*ms292_369a;
  5164. T7*ms107_1278504;
  5165. T7*ms50_1076a;
  5166. T7*ms50_9744a;
  5167. T7*ms50_1188a;
  5168. T7*ms50_6042a;
  5169. T7*ms14_1736a;
  5170. T7*ms14_7524a;
  5171. T7*ms14_1684a;
  5172. T7*ms14_2615a;
  5173. T7*ms51_160aa;
  5174. T7*ms15_1035a;
  5175. T7*ms15_2765a;
  5176. T7*ms15_2730a;
  5177. T7*ms52_248aa;
  5178. T7*ms43_1428a;
  5179. T7*ms43_0aaaa;
  5180. T7*ms34_1176a;
  5181. T7*ms34_9260a;
  5182. T7*ms34_9955a;
  5183. T7*ms344_4979107;
  5184. T7*ms301_1448a;
  5185. T7*ms262_8216a;
  5186. T7*ms325_3843a;
  5187. T7*ms292_824aa;
  5188. T7*ms248_4213a;
  5189. T7*ms11_27612a;
  5190. T7*ms50_10256a;
  5191. T7*ms50_1188aa;
  5192. T7*ms50_6042aa;
  5193. T7*ms50_17392a;
  5194. T7*ms50_20878a;
  5195. T7*ms15_22824a;
  5196. T7*ms15_12915a;
  5197. T7*ms52_22591a;
  5198. T7*ms43_0aaaaa;
  5199. T7*ms34_78588a;
  5200. T7*ms34_82473a;
  5201. T7*ms34_28980a;
  5202. T7*ms34_66110a;
  5203. T7*ms34_50483a;
  5204. T7*ms34_89360a;
  5205. T7*ms34_44694a;
  5206. T7*ms34_37992a;
  5207. T7*ms49_23814a;
  5208. T7*ms49_23035a;
  5209. T7*ms43_0;
  5210. T7*ms15_60;
  5211. T7*ms15_61;
  5212. T7*ms15_62;
  5213. T7*ms15_42;
  5214. T7*ms15_43;
  5215. T7*ms15_64;
  5216. T7*ms15_94;
  5217. T7*ms15_45;
  5218. T7*ms15_35;
  5219. T7*ms14_46;
  5220. T7*ms15_47;
  5221. T7*ms34_67;
  5222. T7*ms325_40;
  5223. T7*ms334_11880a;
  5224. T7*ms325_12027a;
  5225. T7*ms334_14520a;
  5226. T7*ms325_12810a;
  5227. T7*ms325_14469a;
  5228. T7*ms292_17459a;
  5229. T7*ms292_13897a;
  5230. T7*ms292_12670a;
  5231. T7*ms292_14894a;
  5232. T7*ms292_94858a;
  5233. T7*ms292_42432a;
  5234. T7*ms376_23664a;
  5235. T7*ms188_37536a;
  5236. T7*ms13_290;
  5237. T7*ms13_300;
  5238. T7*ms50_330;
  5239. T7*ms50_990;
  5240. T7*ms50_350;
  5241. T7*ms50_960;
  5242. T7*ms14_600;
  5243. T7*ms14_330;
  5244. T7*ms14_990;
  5245. T7*ms14_440;
  5246. T7*ms14_160;
  5247. T7*ms14_270;
  5248. T7*ms51_780;
  5249. T7*ms51_160;
  5250. T7*ms15_450;
  5251. T7*ms52_320;
  5252. T7*ms52_270;
  5253. T7*ms52_620;
  5254. T7*ms43_320;
  5255. T7*ms34_280;
  5256. T7*ms43_270;
  5257. T7*ms43_210;
  5258. T7*ms43_690;
  5259. T7*ms35_180;
  5260. T7*ms282_46;
  5261. T7*ms49_330;
  5262. T7*ms68_300;
  5263. T7*ms15_921;
  5264. T7*ms52_741;
  5265. T7*ms43_891;
  5266. T7*ms12_312;
  5267. T7*ms39_291;
  5268. T7*ms50_222;
  5269. T7*ms50_582;
  5270. T7*ms14_522;
  5271. T7*ms14_492;
  5272. T7*ms14_162;
  5273. T7*ms14_422;
  5274. T7*ms14_112;
  5275. T7*ms51_152;
  5276. T7*ms15_242;
  5277. T7*ms15_552;
  5278. T7*ms15_432;
  5279. T7*ms52_322;
  5280. T7*ms52_582;
  5281. T7*ms52_932;
  5282. T7*ms52_712;
  5283. T7*ms43_522;
  5284. T7*ms43_242;
  5285. T7*ms43_732;
  5286. T7*ms43_292;
  5287. T7*ms43_312;
  5288. T7*ms43_132;
  5289. T7*ms14_993;
  5290. T7*ms14_543;
  5291. T7*ms14_933;
  5292. T7*ms49_112;
  5293. T7*ms43_903;
  5294. T7*ms34_663;
  5295. T7*ms43_753;
  5296. T7*ms35_663;
  5297. T7*ms13_294;
  5298. T7*ms50_604;
  5299. T7*ms14_244;
  5300. T7*ms50_214;
  5301. T7*ms49_103;
  5302. T7*ms14_164;
  5303. T7*ms14_604;
  5304. T7*ms14_404;
  5305. T7*ms14_414;
  5306. T7*ms14_424;
  5307. T7*ms15_564;
  5308. T7*ms52_404;
  5309. T7*ms52_884;
  5310. T7*ms52_414;
  5311. T7*ms43_434;
  5312. T7*ms43_894;
  5313. T7*ms43_314;
  5314. T7*ms43_414;
  5315. T7*ms50_10256aa;
  5316. T7*ms50_1188aaa;
  5317. T7*ms50_6042aaa;
  5318. T7*ms50_20878aa;
  5319. T7*ms52_783104a;
  5320. T7*ms43_0aaaaaa;
  5321. T7*ms34_28980aa;
  5322. T7*ms34_112140a;
  5323. T7*ms34_145656a;
  5324. T7*ms34_103845a;
  5325. T7*ms14_375;
  5326. T7*ms68_144;
  5327. T7*ms52_585;
  5328. T7*ms43_285;
  5329. T7*ms14_166;
  5330. T7*ms50_576;
  5331. T7*ms49_23035aa;
  5332. T7*ms14_336;
  5333. T7*ms14_266;
  5334. T7*ms58_120106a;
  5335. T7*ms15_696;
  5336. T7*ms15_246;
  5337. T7*ms15_216;
  5338. T7*ms52_816;
  5339. T7*ms52_936;
  5340. T7*ms43_306;
  5341. T7*ms43_286;
  5342. T7*ms43_226;
  5343. T7*ms43_786;
  5344. T7*ms43_396;
  5345. T7*ms43_636;
  5346. T7*ms66_366;
  5347. T7*ms49_116;
  5348. T7*ms49_406;
  5349. T7*ms49_486;
  5350. T7*ms14_957;
  5351. T7*ms49_336;
  5352. T7*ms34_657;
  5353. T7*ms14_108;
  5354. T7*ms50_248;
  5355. T7*ms14_178;
  5356. T7*ms14_138;
  5357. T7*ms14_188;
  5358. T7*ms15_368;
  5359. T7*ms15_188;
  5360. T7*ms52_248;
  5361. T7*ms43_948;
  5362. T7*ms43_248;
  5363. T7*ms43_288;
  5364. T7*ms43_918;
  5365. T7*ms43_428;
  5366. T7*ms43_738;
  5367. T7*ms12_729;
  5368. T7*ms49_308;
  5369. T7*ms50_759;
  5370. T7*ms14_939;
  5371. T7*ms68_208;
  5372. T7*ms15_669;
  5373. T7*ms34_459;
  5374. T7*ms52_759;
  5375. T7*ms102_450;
  5376. T7*ms301_160;
  5377. T7*ms160_160;
  5378. T7*ms243_270;
  5379. T7*ms262_620;
  5380. T7*ms344_110;
  5381. T7*ms292_820;
  5382. T7*ms292_270;
  5383. T7*ms292_170;
  5384. T7*ms292_960;
  5385. T7*ms292_280;
  5386. T7*ms103_741;
  5387. T7*ms392_500;
  5388. T7*ms368_360;
  5389. T7*ms368_330;
  5390. T7*ms189_700;
  5391. T7*ms262_101;
  5392. T7*ms262_741;
  5393. T7*ms363_741;
  5394. T7*ms292_741;
  5395. T7*ms292_411;
  5396. T7*ms103_522;
  5397. T7*ms103_712;
  5398. T7*ms301_232;
  5399. T7*ms232_242;
  5400. T7*ms232_522;
  5401. T7*ms341_102;
  5402. T7*ms262_552;
  5403. T7*ms325_492;
  5404. T7*ms352_522;
  5405. T7*ms344_522;
  5406. T7*ms326_152;
  5407. T7*ms344_492;
  5408. T7*ms345_972;
  5409. T7*ms363_732;
  5410. T7*ms292_492;
  5411. T7*ms292_522;
  5412. T7*ms292_582;
  5413. T7*ms292_372;
  5414. T7*ms292_652;
  5415. T7*ms292_202;
  5416. T7*ms242_993;
  5417. T7*ms271_543;
  5418. T7*ms325_873;
  5419. T7*ms232_244;
  5420. T7*ms215_174;
  5421. T7*ms341_144;
  5422. T7*ms341_184;
  5423. T7*ms325_414;
  5424. T7*ms325_764;
  5425. T7*ms137_214;
  5426. T7*ms344_824;
  5427. T7*ms344_684;
  5428. T7*ms282_164;
  5429. T7*ms292_804;
  5430. T7*ms292_164;
  5431. T7*ms292_264;
  5432. T7*ms292_824;
  5433. T7*ms283_444;
  5434. T7*ms248_174;
  5435. T7*ms21_1660;
  5436. T7*ms50_9090;
  5437. T7*ms50_7140;
  5438. T7*ms50_1080;
  5439. T7*ms14_1320;
  5440. T7*ms286_984;
  5441. T7*ms14_1260;
  5442. T7*ms14_4320;
  5443. T7*ms50_6980;
  5444. T7*ms14_3720;
  5445. T7*ms14_2780;
  5446. T7*ms14_2810;
  5447. T7*ms14_7320;
  5448. T7*ms14_2830;
  5449. T7*ms14_2710;
  5450. T7*ms14_7260;
  5451. T7*ms14_8680;
  5452. T7*ms14_1700;
  5453. T7*ms14_2670;
  5454. T7*ms14_2550;
  5455. T7*ms14_2610;
  5456. T7*ms50_2150;
  5457. T7*ms188_164;
  5458. T7*ms51_5320;
  5459. T7*ms51_1070;
  5460. T7*ms15_1980;
  5461. T7*ms15_2600;
  5462. T7*ms15_8750;
  5463. T7*ms15_2760;
  5464. T7*ms15_2440;
  5465. T7*ms15_7380;
  5466. T7*ms15_2730;
  5467. T7*ms15_7530;
  5468. T7*ms15_8820;
  5469. T7*ms15_1800;
  5470. T7*ms15_2780;
  5471. T7*ms52_6360;
  5472. T7*ms52_3810;
  5473. T7*ms52_2370;
  5474. T7*ms52_2040;
  5475. T7*ms52_1600;
  5476. T7*ms52_8540;
  5477. T7*ms43_1620;
  5478. T7*ms43_8280;
  5479. T7*ms43_2300;
  5480. T7*ms34_6580;
  5481. T7*ms34_9260;
  5482. T7*ms34_7530;
  5483. T7*ms34_7510;
  5484. T7*ms334_525;
  5485. T7*ms35_8390;
  5486. T7*ms35_8610;
  5487. T7*ms43_0a;
  5488. T7*ms363_705;
  5489. T7*ms301_816;
  5490. T7*ms230_716;
  5491. T7*ms338_525;
  5492. T7*ms57_7760;
  5493. T7*ms66_2250;
  5494. T7*ms66_2610;
  5495. T7*ms49_6110;
  5496. T7*ms49_2280;
  5497. T7*ms49_8130;
  5498. T7*ms49_6300;
  5499. T7*ms49_5160;
  5500. T7*ms76_3720;
  5501. T7*ms232_496;
  5502. T7*ms14_9401;
  5503. T7*ms68_2120;
  5504. T7*ms134_146;
  5505. T7*ms15_9801;
  5506. T7*ms15_1011;
  5507. T7*ms15_8211;
  5508. T7*ms15_9051;
  5509. T7*ms43_5481;
  5510. T7*ms43_6281;
  5511. T7*ms325_486;
  5512. T7*ms218_966;
  5513. T7*ms344_276;
  5514. T7*ms345_156;
  5515. T7*ms345_606;
  5516. T7*ms345_546;
  5517. T7*ms363_816;
  5518. T7*ms292_656;
  5519. T7*ms292_286;
  5520. T7*ms292_166;
  5521. T7*ms247_156;
  5522. T7*ms11_6462;
  5523. T7*ms12_6582;
  5524. T7*ms13_1592;
  5525. T7*ms50_7072;
  5526. T7*ms50_4932;
  5527. T7*ms50_6042;
  5528. T7*ms187_696;
  5529. T7*ms14_3122;
  5530. T7*ms50_1252;
  5531. T7*ms14_5432;
  5532. T7*ms14_1792;
  5533. T7*ms14_6912;
  5534. T7*ms14_6822;
  5535. T7*ms14_9422;
  5536. T7*ms14_6852;
  5537. T7*ms368_426;
  5538. T7*ms51_3102;
  5539. T7*ms15_6702;
  5540. T7*ms15_1772;
  5541. T7*ms15_6762;
  5542. T7*ms52_5802;
  5543. T7*ms43_1592;
  5544. T7*ms43_7392;
  5545. T7*ms43_4542;
  5546. T7*ms43_6162;
  5547. T7*ms43_1472;
  5548. T7*ms43_1032;
  5549. T7*ms34_6402;
  5550. T7*ms34_5302;
  5551. T7*ms43_6412;
  5552. T7*ms12_7623;
  5553. T7*ms50_5863;
  5554. T7*ms232_628;
  5555. T7*ms50_6223;
  5556. T7*ms214_978;
  5557. T7*ms14_9023;
  5558. T7*ms14_7263;
  5559. T7*ms14_8883;
  5560. T7*ms14_1053;
  5561. T7*ms15_6643;
  5562. T7*ms52_5873;
  5563. T7*ms262_248;
  5564. T7*ms334_308;
  5565. T7*ms325_218;
  5566. T7*ms352_258;
  5567. T7*ms326_728;
  5568. T7*ms102_999;
  5569. T7*ms292_628;
  5570. T7*ms12_2424;
  5571. T7*ms366_448;
  5572. T7*ms50_9184;
  5573. T7*ms50_9744;
  5574. T7*ms50_9344;
  5575. T7*ms14_6504;
  5576. T7*ms14_6744;
  5577. T7*ms14_1664;
  5578. T7*ms14_8764;
  5579. T7*ms14_8184;
  5580. T7*ms14_1724;
  5581. T7*ms14_1684;
  5582. T7*ms14_1744;
  5583. T7*ms14_7524;
  5584. T7*ms51_4164;
  5585. T7*ms15_9234;
  5586. T7*ms15_1644;
  5587. T7*ms15_1664;
  5588. T7*ms15_1724;
  5589. T7*ms15_1744;
  5590. T7*ms15_7314;
  5591. T7*ms43_1504;
  5592. T7*ms43_1444;
  5593. T7*ms43_4524;
  5594. T7*ms43_1044;
  5595. T7*ms52_9724;
  5596. T7*ms334_759;
  5597. T7*ms325_549;
  5598. T7*ms35_3084;
  5599. T7*ms292_339;
  5600. T7*ms292_549;
  5601. T7*ms292_459;
  5602. T7*ms292_369;
  5603. T7*ms49_7464;
  5604. T7*ms50_2375;
  5605. T7*ms50_1305;
  5606. T7*ms50_1225;
  5607. T7*ms14_1275;
  5608. T7*ms14_5895;
  5609. T7*ms14_5495;
  5610. T7*ms14_9485;
  5611. T7*ms14_2615;
  5612. T7*ms14_2595;
  5613. T7*ms68_5784;
  5614. T7*ms51_8175;
  5615. T7*ms15_1915;
  5616. T7*ms15_6405;
  5617. T7*ms15_2765;
  5618. T7*ms15_2785;
  5619. T7*ms15_1035;
  5620. T7*ms15_2445;
  5621. T7*ms15_8505;
  5622. T7*ms15_9275;
  5623. T7*ms52_1425;
  5624. T7*ms52_1725;
  5625. T7*ms52_1715;
  5626. T7*ms52_1005;
  5627. T7*ms52_2785;
  5628. T7*ms52_2345;
  5629. T7*ms43_2745;
  5630. T7*ms43_8225;
  5631. T7*ms43_1985;
  5632. T7*ms43_2325;
  5633. T7*ms43_2435;
  5634. T7*ms34_2595;
  5635. T7*ms34_9955;
  5636. T7*ms43_9785;
  5637. T7*ms43_2395;
  5638. T7*ms11_6996;
  5639. T7*ms12_7056;
  5640. T7*ms66_2065;
  5641. T7*ms49_8325;
  5642. T7*ms13_1476;
  5643. T7*ms14_6996;
  5644. T7*ms50_3536;
  5645. T7*ms50_1076;
  5646. T7*ms50_7116;
  5647. T7*ms14_1656;
  5648. T7*ms50_6056;
  5649. T7*ms14_2976;
  5650. T7*ms14_1736;
  5651. T7*ms50_1476;
  5652. T7*ms50_7596;
  5653. T7*ms15_1216;
  5654. T7*ms15_6776;
  5655. T7*ms15_7576;
  5656. T7*ms15_4956;
  5657. T7*ms15_6846;
  5658. T7*ms15_1656;
  5659. T7*ms15_9436;
  5660. T7*ms15_7326;
  5661. T7*ms52_5346;
  5662. T7*ms43_5376;
  5663. T7*ms43_3786;
  5664. T7*ms43_6726;
  5665. T7*ms43_6996;
  5666. T7*ms43_1656;
  5667. T7*ms43_1036;
  5668. T7*ms43_1076;
  5669. T7*ms34_1176;
  5670. T7*ms34_7826;
  5671. T7*ms43_5166;
  5672. T7*ms43_3636;
  5673. T7*ms52_1476;
  5674. T7*ms43_9226;
  5675. T7*ms43_1316;
  5676. T7*ms43_1296;
  5677. T7*ms50_7137;
  5678. T7*ms14_5327;
  5679. T7*ms68_1116;
  5680. T7*ms15_6307;
  5681. T7*ms15_8547;
  5682. T7*ms35_7497;
  5683. T7*ms11_6348;
  5684. T7*ms21_1688;
  5685. T7*ms49_4977;
  5686. T7*ms14_1248;
  5687. T7*ms50_7568;
  5688. T7*ms50_1188;
  5689. T7*ms50_6818;
  5690. T7*ms50_9158;
  5691. T7*ms50_1128;
  5692. T7*ms14_9878;
  5693. T7*ms14_6448;
  5694. T7*ms14_6588;
  5695. T7*ms14_7008;
  5696. T7*ms14_1768;
  5697. T7*ms14_6978;
  5698. T7*ms14_6798;
  5699. T7*ms14_3038;
  5700. T7*ms78_9977;
  5701. T7*ms15_4728;
  5702. T7*ms15_5508;
  5703. T7*ms15_7928;
  5704. T7*ms15_1168;
  5705. T7*ms15_9408;
  5706. T7*ms15_1608;
  5707. T7*ms52_8008;
  5708. T7*ms52_2118;
  5709. T7*ms43_5868;
  5710. T7*ms43_4488;
  5711. T7*ms43_1428;
  5712. T7*ms34_9888;
  5713. T7*ms43_8478;
  5714. T7*ms43_7358;
  5715. T7*ms35_4248;
  5716. T7*ms35_3688;
  5717. T7*ms66_8638;
  5718. T7*ms49_1428;
  5719. T7*ms50_4109;
  5720. T7*ms14_7749;
  5721. T7*ms14_8799;
  5722. T7*ms51_4949;
  5723. T7*ms35_6929;
  5724. T7*ms301_1350;
  5725. T7*ms301_5250;
  5726. T7*ms221_3240;
  5727. T7*ms231_2430;
  5728. T7*ms160_2940;
  5729. T7*ms341_9620;
  5730. T7*ms225_4830;
  5731. T7*ms262_1400;
  5732. T7*ms262_8130;
  5733. T7*ms325_1840;
  5734. T7*ms325_2170;
  5735. T7*ms334_8120;
  5736. T7*ms352_9760;
  5737. T7*ms325_1750;
  5738. T7*ms352_2220;
  5739. T7*ms352_4000;
  5740. T7*ms363_7950;
  5741. T7*ms363_1670;
  5742. T7*ms363_1510;
  5743. T7*ms345_5250;
  5744. T7*ms390_5490;
  5745. T7*ms363_3160;
  5746. T7*ms292_1050;
  5747. T7*ms292_1360;
  5748. T7*ms292_1850;
  5749. T7*ms292_2110;
  5750. T7*ms292_1290;
  5751. T7*ms292_5640;
  5752. T7*ms292_9190;
  5753. T7*ms292_7510;
  5754. T7*ms292_9020;
  5755. T7*ms292_9000;
  5756. T7*ms292_3730;
  5757. T7*ms292_6740;
  5758. T7*ms292_8360;
  5759. T7*ms292_9350;
  5760. T7*ms292_6800;
  5761. T7*ms292_2410;
  5762. T7*ms292_2420;
  5763. T7*ms292_6670;
  5764. T7*ms283_2220;
  5765. T7*ms301_5411;
  5766. T7*ms276_7630;
  5767. T7*ms366_6990;
  5768. T7*ms366_7020;
  5769. T7*ms150_9711;
  5770. T7*ms188_9780;
  5771. T7*ms368_4800;
  5772. T7*ms396_4200;
  5773. T7*ms397_1540;
  5774. T7*ms397_5460;
  5775. T7*ms389_8520;
  5776. T7*ms325_8411;
  5777. T7*ms325_8701;
  5778. T7*ms344_8631;
  5779. T7*ms292_4631;
  5780. T7*ms292_6071;
  5781. T7*ms292_5691;
  5782. T7*ms292_3241;
  5783. T7*ms283_6651;
  5784. T7*ms388_5061;
  5785. T7*ms325_3512;
  5786. T7*ms262_7272;
  5787. T7*ms352_4312;
  5788. T7*ms363_1452;
  5789. T7*ms292_2982;
  5790. T7*ms292_8772;
  5791. T7*ms283_9552;
  5792. T7*ms188_2982;
  5793. T7*ms243_8073;
  5794. T7*ms262_5193;
  5795. T7*ms325_3843;
  5796. T7*ms352_6153;
  5797. T7*ms344_9243;
  5798. T7*ms344_4653;
  5799. T7*ms292_3663;
  5800. T7*ms292_3213;
  5801. T7*ms248_4213;
  5802. T7*ms103_2184;
  5803. T7*ms221_3224;
  5804. T7*ms341_1164;
  5805. T7*ms341_2824;
  5806. T7*ms225_3894;
  5807. T7*ms11_13680;
  5808. T7*ms11_10680;
  5809. T7*ms11_10800;
  5810. T7*ms262_9174;
  5811. T7*ms12_29440;
  5812. T7*ms12_20940;
  5813. T7*ms12_15230;
  5814. T7*ms12_24020;
  5815. T7*ms325_1644;
  5816. T7*ms334_7344;
  5817. T7*ms325_4674;
  5818. T7*ms344_8764;
  5819. T7*ms50_22620;
  5820. T7*ms50_17400;
  5821. T7*ms50_26370;
  5822. T7*ms14_25640;
  5823. T7*ms14_12870;
  5824. T7*ms50_22050;
  5825. T7*ms50_12460;
  5826. T7*ms50_18290;
  5827. T7*ms14_17460;
  5828. T7*ms390_1264;
  5829. T7*ms14_11460;
  5830. T7*ms50_42240;
  5831. T7*ms50_21900;
  5832. T7*ms14_10800;
  5833. T7*ms14_18080;
  5834. T7*ms14_23520;
  5835. T7*ms50_16400;
  5836. T7*ms14_10880;
  5837. T7*ms14_10720;
  5838. T7*ms14_41100;
  5839. T7*ms50_14160;
  5840. T7*ms50_15540;
  5841. T7*ms292_5474;
  5842. T7*ms292_4374;
  5843. T7*ms292_1004;
  5844. T7*ms292_9954;
  5845. T7*ms51_23730;
  5846. T7*ms51_40050;
  5847. T7*ms51_36270;
  5848. T7*ms51_17730;
  5849. T7*ms51_32700;
  5850. T7*ms51_14040;
  5851. T7*ms15_12550;
  5852. T7*ms15_10740;
  5853. T7*ms15_12030;
  5854. T7*ms15_10680;
  5855. T7*ms15_15070;
  5856. T7*ms15_15570;
  5857. T7*ms15_15190;
  5858. T7*ms15_15890;
  5859. T7*ms15_28490;
  5860. T7*ms15_30660;
  5861. T7*ms15_24960;
  5862. T7*ms15_26880;
  5863. T7*ms15_33240;
  5864. T7*ms15_60060;
  5865. T7*ms15_33270;
  5866. T7*ms15_53940;
  5867. T7*ms15_32730;
  5868. T7*ms15_27580;
  5869. T7*ms15_33990;
  5870. T7*ms15_16970;
  5871. T7*ms15_16770;
  5872. T7*ms15_16850;
  5873. T7*ms15_21300;
  5874. T7*ms15_56720;
  5875. T7*ms15_15650;
  5876. T7*ms15_22140;
  5877. T7*ms185_7344;
  5878. T7*ms52_14570;
  5879. T7*ms52_13200;
  5880. T7*ms52_11760;
  5881. T7*ms52_23640;
  5882. T7*ms52_51520;
  5883. T7*ms52_15800;
  5884. T7*ms52_34060;
  5885. T7*ms52_17170;
  5886. T7*ms52_14920;
  5887. T7*ms43_46640;
  5888. T7*ms43_41310;
  5889. T7*ms43_15800;
  5890. T7*ms338_8184;
  5891. T7*ms43_12780;
  5892. T7*ms301_1225;
  5893. T7*ms43_15200;
  5894. T7*ms43_24570;
  5895. T7*ms43_10260;
  5896. T7*ms34_57450;
  5897. T7*ms34_82140;
  5898. T7*ms34_70550;
  5899. T7*ms34_28980;
  5900. T7*ms34_57360;
  5901. T7*ms34_43830;
  5902. T7*ms34_66110;
  5903. T7*ms34_70210;
  5904. T7*ms34_11050;
  5905. T7*ms34_91880;
  5906. T7*ms34_20060;
  5907. T7*ms34_90080;
  5908. T7*ms34_63690;
  5909. T7*ms34_89360;
  5910. T7*ms34_37500;
  5911. T7*ms34_27720;
  5912. T7*ms34_28940;
  5913. T7*ms34_75620;
  5914. T7*ms34_32940;
  5915. T7*ms34_74830;
  5916. T7*ms34_97990;
  5917. T7*ms34_28720;
  5918. T7*ms34_57210;
  5919. T7*ms34_65170;
  5920. T7*ms34_47790;
  5921. T7*ms34_56460;
  5922. T7*ms43_82530;
  5923. T7*ms43_11880;
  5924. T7*ms43_33210;
  5925. T7*ms43_10010;
  5926. T7*ms221_2345;
  5927. T7*ms344_100072a;
  5928. T7*ms344_107092a;
  5929. T7*ms90_19170;
  5930.  
  5931.